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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


»HE RC25 DISK As ee IS tit ay TO VERIFY THE INTEGRITY OF THE 
EST, AND TO DETECT FAULTS AT THE FUNCTIONAL bevel ONLY. 
PROGRAM SHOULD GIVE 


(DIAGNOSTIC MACHINE) UNDER HOST C 
INFORMATION ON EACH EXERCISER SUBTEST. 


THIS EXERCISER CAN TEST UP TO 4 CONTROLLERS (4 DIFFERENT IP ADDRESSES), 
EACH CONTROLLER HAVING UP TO 2 DRIVES, AND EACH DRIVE WITH 2 PLATTERS. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC RUNTIME 
lly: SOFTWARE (SUPERVISOR). THESE oeeent PROVIDE THE INTERFACE 
OPERATOR AND TO THE SOFTWARE ie thee - THIS PROGRAM CAN BE 
USED MyITH ~~ s ACT, APT, SLIDE AND PAPER TAPE. FOR A COMPLETE 
DESCRIPTION OF THE RUNTIME SERVICES, REFER TO THE XXDP+ USER'S MANUAL. 
Ln ag DESCRIPTION OF THE RUNTIME SERVICES IN SECTION 2 OF 


1.2 SYSTEM REQUIREMENTS 
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE RC25 DISK EXERCISER: 


* PDP-11 ty 
* 28K WORDS OF MEMORY (MEMORY ABOVE 28K, IF AVAILABLE, WILL BE USED FOR 
DATA TRANSFERS) 
FROM 1 TO 4 RC25 CONTROLLERS WITH UP TO 2 DRIVES PER CONTROLLER AND 
EXACTLY 2 PLATTERS PER DRIVE (1.E., A REMOVABLE CARTRIDGE MUST 
He sett) IN EACH DRIVE, ALTHOUGH IT NEED NOT PARTICIPATE IN 


XXDP+ MEDIA DEVICE HE oe RKOS, RLO2) 
KW11-L_OR KW11-P CLO 
CONSOLE TERMINAL 


1.3 RELATED DOCUMENTS AND STANDARDS 


CHQUS = XXDP+ USER'S MANUAL 
UNIBUS/Q=BUS STORAGE SYSTEMS PORT (UQSSP) 
GE COMMUNICATION PROTOCOL ( CMSCPS 
DIAGNOSTIC AND UTILITIES PROTOCOL (DUP) 
ANEL EXERCISER DIAGNOSTIC mcOU) V0.3 REV 1.2 
Reos T rite ENGINEERING SPECIFICATION, REV 5 


“i, 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

ALL RC25 DRIVE-UNITS TO BE gree win 4 Had PROGRAM MUST HAVE ore 

od ve Sok eM VERIFIED BY THE RC2 FRONTEND / HOST DIAGNOSTIC. 
THE FRONT-END / HOST DIAGNOSTIC REQUIRES THAT THE aus, HOST PROCESSOR, 

MEMORY, SYSTEM CLOCK AND CONSOLE TERMINAL ARE ALL FUNCTIONING PROPERLY. 

1.5 ASSUMPTIONS 

* REMOVABLE CARTRIDGE IS PRESENT IN ALL RC25 DRIVE-UNITS TO BE 

EXERCISED 


* ALL RC25 DRIVE-UNITS HAVE BEEN SUCCESSFULLY SPUN-UP 
* ALL RC25 CONTROLLERS WILL INTERRUPT THE HOST AT BR LEVEL 5 OR LESS. 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
ee avis ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


ISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY BRIEF 
DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DE TAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS  sneealieens (BY *C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME) 

DROP DEACTIVATE A_UNIT 

PRINT PRINT STATISTICAL INFORMATION 4 IMPLEMENTED 
BY BL ng tt ke N 4.0) 

DISPLAY “YPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


COMMAND CAN BE RECOGNIZED BY THE FIRST — CHARACTERS. SO YOU MAY, 
FOR EXAMPLE, TYPE ‘‘STA’’ INSTEAD OF ‘‘START’ 


FOR THE RC25 DISK EXERCISER, THE START, RESTART, AND CONTINUE COMMANDS 
+ opteny, SIMILAR FUNCTIONS. THE DIFFERENCES ARE SUMMARIZED IN THE TABLE 





SEQ 0004 





F 1 
START RESTART CONTINUE 


ALLOW CHANGES TO HARDWARE 
CONF IGURATION 


CLEAR ELAPSED TIME OF EXERCISER 
TO 00:00:00 


SAVE STATISTICS ACCUMULATED 
ga THE LAST INCOMPLETE 


RESET THE COMMAND REFERENCE 
NUMBER USED IN MSCP COMMANDS 


IF SEQUENTIAL LBN MODE, RESET 
THE STARTING BLOCK NUMBER USED 
IN 1/0 OPERATIONS 


2.2 SWITCHES 
THERE ARE SEVERAL SWITCHES WHICH ARE USED 10 MODIFY SUPERVISOR 


OPERATION. THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF 
act SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF 


IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD"*. 
SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE eee ag Td IN THE LIST. 
LIST IS F TEST FOR 


RUN. ALL 2% 
/PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 
/FLAGS:FLGS SET sated 32 ie FLAGS ARE DESCRIBED IN 
/EOP:DDDDD REPORT END-OF-PASS MESSAGE AFTER EVERY DDDDD 
PASSES ONL (DDDDD = 1 TO 64000) 


E Y. 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED IN THE 
LIST. LIST EXAMPLE = /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12. 


EXAMPLE OF SWITCH USAGE: 

START/TESTS: 1-5/PASS: 1000/EOP: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES Ba 3) THE END-OF -PASS 
MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A SWITCH CAN BE 
RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, FOR EXAMPLE, TYPE 
"*/TES:1-5°* INSTEAD OF *‘/TESTS:1-5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED B: “ACH 
COMMAND. 





TESTS PASS FLAGS EOP UNITS 


Xx 
Xx 


x 
x 


FOR THE RC25 DISK EXERCISER, THE /TESTS SWITCH IS MEANINGLESS SINCE 
THERE IS ONLY ONE TEST. 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN eran es ar Ay ny SUCH A a 
ONE L FLAGS ARE CLEARED AT STARTUP AND REMAIN CLEARED UNTIL 
EXPLICITLY SET USING THE FLAGS SWIT FLAGS ARE ALSO CLEARED AFTER A 
START COMMAND UNLESS SET USING THE FLAG SWITCH. ZFLAGS COMMAND MAY 
ALSO BE USED TO CLEAR ALL FLAGS. WITH THE EXCEPTION OF THE START AND 
ZFLAGS COMMANDS, NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN 
SET OR CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 


HALT ON ERROR = CONTROL IS RETURNED TO RUNTIME 
SERVICES COMMAND MODE 


LOOP ON ERROR 
INHIBIT ott ry) REPORTS (GENERAL, BASIC, AND 


INHIBIT BASIC AND EXTENDED a REPORTS 
INHIBIT EXTENDED ERROR REPO 

DIRECT oh yet TO LINE PRIN TER 

PRINT ay — AS TEST EXECUTES 


"BELL" 

UNATTEN DED MODE (NO MANUAL INTERVENTION) 
INHIBIT STATISTICAL REPORTS 

INHIBIT PROGRAM DROPPING OF UNITS 
ys al CODE 


L ON TEST 
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH HAVE 
EVALUATION SUPPORT) 


* ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 
SEE THE XXDP+ USER*S MANUAL FOR MORE DETAILS ON FLAGS. roy to SPECIFY 
MORE THAN ONE — WITH THE FLAG SWITCH. FOR EXAMPLE, TO CAUSE THE 
PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS AND TYPE A ‘BELL*’ ON 
ERROR, YOU MAY USE THE FOLLOWING STRING: 
/FLAGS :LOE : IER: BOE 


an Ha RC25 DISK EXERCISER, THE FOLLOWING FLAGS HAVE NO EFFECT: ADR 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS rest “in RUNTIME SERVICES ofitt PROMPT THE USER 
FOR HARDWARE Pat create BY TYPING “CHANGE HW (L) YOU MUST ANSWER 
*Y"" AFTER A START COMMAND UNLESS (A) THE HARDWARE INFORMATION HAS BEEN 
pa * USING THE SETUP Ut (SEE CHAPTER 6 OF 1, # XDP+ er Ss 

B) YOU WISH TO USE THE DEFAULT HARDWARE NFIGURATION. T HAT 

BELOW). WHEN YOU ANS ew in 


A WORD ABOUT SEMANTICS: IN ALL eg y= Ry bay) BY THE RC25 EXERCISER, 

AS WELL AS IN THE DOCUMENTATION, THE PHRASES ‘UNIT X"* AND “UNIT NUMBER’ 
REFER TO THE SEQUENTIALLY-ASSIGNED UNIT NUMBER GIVEN BY THE DIAGNOSTIC 
SUPERVISOR. THE PHRASES ‘PLATTER X'’ AND ‘PLATTER ADDRESS’’ REFER TO THE 
UNIT NUMBER ASSIGNED TO THE DISK THROUGH THE UNIT PLUG ON THE FRONT OF 
THE DRIVE. THESE TWO NUMBERS ARE NOT RELATED. 


DEFAULT ANSWERS APPEAR WITH QUESTIONS FOR WHICH THE USER MAY SIMPLY 
TYPE A CARRIAGE RETURN. 


IP seta > (0) 172150 ? 


NTER THE ADDRESS OF THE IP REGISTER 4 ONE RC25_ AS 1 9 


BY THE PROCESSOR WITH MEMORY MANAGEMENT TURNED OFF. THE PROGR 
7a sh AN EVEN 16-BIT ADDRESS IN THE RANGE OF 160000 TO 


1 7 eo 
VECTOR (0) 154 ? 
ANSWER WITH THE INTERRUPT VECTOR OF THE SAME RC25 IN THE ABOVE 
QUESTION. AN EVEN VECTOR ADDRESS IN THE RANGE A 4 TO 774 WILL 
BE ACCEPTED. SINCE RC25 ots te ADDRESSES ARE PROGRAMMABLE AND 
NOT HARDWIRED, CARE MUST BE TAKEN NOT TO SPECIFIY A VECTOR 
WHICH IS USED FOR ANOTHER PERIPHERAL DEVICE. 


BR LEVEL (0) 
AN with THE BUS REQUEST INTERRUPT LEVEL USED A i ABOVE 
4 THORUGH 7 at ACCEPTABLE. (NOTE: THE PROGRAM 
L BE = BR LEVEL 5 OR LESS. IF 
ASE, T ONLY E RC25 CONTROLLER WITH UP 
g NMAY BE oe haa ar A TIME). 


TO F UNIT 
PLATTER ADDRESS (UNIT PLUG) £ ») 0? 
ENTER A NUMBER BE N_0 AND 1a: FOR ONE DISK WHICH CORRESPONDS 
F To THE DEVICE. EVEN 
hates DISK), ODD NUMBERS REFER 


PLATTER (L) 
S A ‘NO ee 


YOU ANSW 
al WARNING - pus Tones PA hE ye 
NO DEFAULT. BUT 
PREVENT THE CusTORER DATA AREA FROM BEING OVERWRITTEN, 


MAY 
ANSWER IS EXPECTED, 


SEQ 0007 





SEQ 0008 
EXAMPLE OF HARDWARE DIALOG: 


CHANGE HW (L) ? Y<CR> 
# UNITS (D) ? 2<CR> 


UNIT 0 
IP woaas (0) vers ? <CR> 
VECTOR (0) 154 ? 
BR LEVEL (0) 5? < <tR> 
PLATTER ADDRESS ... (D) a. ? 252<CR> 
ALLOW WRITES ... (L) <CR> 
#* WARNING - ... CONF IRM wD 2? N<CR> ! USER REVERSES ANSWER 


UNIT 1 

IP raat (0) Ip itg ? <CR> 
VECTOR ¢ 154 

BR LEV VEL (0) 5 : <tr> 

PLATTER ADDRESS ... (D) 252 ? 253<CR> 
ALLOW WRITES ... (L) ? Y<CR> 

#* WARNING = ... CONFIRM (L) ? Y<CR> 


AS MENTIONED ABOVE, THERE IS A DEFAULT HARDWARE CONFIGURATION THAT IS 
SUPPLIED WITH THE PROGRAM. IT CONSISTS OF TWO UNITS AS FOLLOWS: 


UNIT 0 

IP ADDRESS: 72150 
VECTOR: 54 

BR LEVEL: 
PLATTER ADDRESS: 
ALLOW WRITES? 


1 
15 
5 
0 
N 


UNIT 1 
IP ADDRESS: 172150 
VECTOR: 154 
BR LEVEL: 5 
PLATTER ADDRESS: 1 
ALLOW WRITES? N 
THIS CONFIGURATION TAKES EFFECT IF THE USER DOES NOT USE THE SETUP 


UTILITY AND HAS BYPASSED THE HARDWARE QUESTIONS WHEN THE PROGRAM IS 
FIRST STARTED. 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ok THE HARDWARE QUESTIONS OR AFTER A RESTART OR 
ONT HE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
E DIAGNOSTIC he 
A MOD E E Sw (L) 2°". IF Y 
WISH TO CHANGE ANY PARAMETERS, ANSWER BY TY - THE SOFTWARE 
QUESTIONS AND THE "DEFAULT VALUES ARE DESCRIBED BELOW: 


ERROR Lantt (0 FOR NO LIMIT) (D) 32 ? 
ENTER THE NUMBER OF HARD ERRORS ALLOWED PER UNIT PER PASS 
BEFORE THE UNIT IS DROPPED FROM TESTING. A NUMBER IN THE 
RANGE OF 0 TO 65535 WILL BE ACCEPTED. 








J 1 


TRANSFER i IN MEGABYTES (0 FOR NO LIMIT) (D) 2 ? 
ENTER THE NUMBER OF MEGABYTES TO BE TRANSFERRED TO / FROM EACH 
CLAKED. A NUMBER IN THE _ 


APPROXIMATELY OR T AME SYSTEM, 
arr 3 1 WILL REACH A 2 MEGABYTE LIMIT IN APPROXIMATELY 20 


MINU 
SUPPRESS PRINTING ERROR LOG MESSAGES (L) Y 
ERROR LOG MESSAGES USUALLY DESCRIBE * MINOR ERRORS ENCOUNTERED 
DURING tg OPERATIONS, SUCH AS ECC SYMBOL ERRORS. ANSWER ‘'N 
TO SEE ALL ERROR LOG MESSAGES. 
RUN DM EXERCISER INSTEAD OF MULTI-DRIVE SUBTEST (L) N 


MA THE § 
MULTI-DRIVE SUBTEST IS BEING RUN. 
RANDOM SEEK MODE (L)_Y 
ANSWERING "'Y"" WILL CAUSE EACH 1/0 OPERATION TO SELECT A RANDOM 
STARTING DISK BLOCK NUMBER. ANSWER 'N'' TO HAVE STARTING BLOCK 
NUMBERS SELECTED SEQUENTIALLY ON EACH PLATTER. 
STARTING TRACK (D) 0 ? 
ENTER THE STARTING TRACK NUMBER OF THE DISK AREA YOU WISH TO 
TEST. A NUMBER IN THE RANGE 0 TO 1647 WILL BE ACCEPTED. 
ENDING TRACK. (D) ? 


TER THE ENDING TRACK NUMBER OF THE DISK AREA YOU WISH TO 


READ=COMPARES PERFORMED AT THE CONTROLLER (L) Y 
me | L READ OPERA ATTONS TO BE CHANGED TO 


TWO READ OPERATIONS ON THE SAME DISK S T 
rtiate AFTER ANSWERING THIS QUESTION, THE FOLLOWING MESSAGE 


THE REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED PLATTERS. 


WRITE ONLY (L) N? 
ANSWER "'Y" FOR WRITES ONLY; OTHERWISE THE PROGRAM WILL CHOOSE 
WRITES AND READS ON A RANDOM BAS 
URITE-COMPARES PERFORMED AT THE CONTROLLER R(L) Y 
ANSUERING “VES CAUSES ALL URITE 1/0-REQUESTS TO BE CHANGED TO 
WRITE~COMPARE. IN THIS SITUATION, AFTER EACH WRITE, 
CONTROLLER WILL READ BACK THE DATANFROM. THE MEDIA AND COMPARE 
IT TO THE ORIGINAL DATA RE-OBTAINED FROM THE HOST. 
CHECK ALL WRITES AT HOST BY READING, (L) N 
QUESTION WILL ONLY BE ASK KED IF THE PREVIOUS QUESTION WAS 
RED NO". A YES” ANSWER HERE CAUSES EACH HOST WRITE 


ON 
TION OF AEXTRA CPU 


TIME, AND THE OVER R*S NORMA 
OPTIMIZATION POLICIES (DUE TO THE MEXPRESS REQUEST’* COMMAND 
MODIFIER WHICH MUST BE SET FOR EACH WRITE-READ PAIR). 


kK 1 


USER-DEFINED DATA PATTERN, (L) 
ANSUER OF "VES" ALLOWS YOU TO DEFINE YOUR OWN DATA PATTERN 
(UP TO 16, WORDS) TO BE USED IN ALL WRITE OPERATIONS. A 'NO™ 
ANSWER ALLOWS. THE USE OF OTHER PRE-DEFINED DATA PATTERNS WHICH 
Y BE SELECTED IN THE NEXT QUESTION. 
SELECT PREDEFINED DATA PATTERN (0 FOR SEQUENTIAL SELECTION) (D) 0 2 
THIS QUESTION WILL ONLY BE ASKED IF. THE PREVIOUS QUESTION WAS 


m R 
CONSISTS ENTIRELY OF RANDOM NUMBERS. THIS COMPLETES THE SOFT- 
WARE sy! IONING; THE Pots QUESTIONS ARE ASKED ONLY IF YOU 
CHOSE TO DEFINE YOUR OWN DATA PATTERN. 
NUMBER OF WORDS. IN, DATA PATTERN de TRAXIMUM) (D) 16? 
PATTERN VALUE (0) ? 
THIS QUESTION REPEATED AS APPROPRIATE. 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES INA 
TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST WAY TO BUILD 
THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH UNIT TO BE TESTED. IF 
YOU HAVE A MULTIPLEXED DEVICE SUCH AS A MASS STORAGE wg A ag WITH 
SEVERAL DRIVES OR A COMMUNICATION DEVICE WITH SEVERAL LINES, THIS 
BECOMES TEDIOUS SINCE MOST OF THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING A 

2 ap tilt THE XY11. SUPPOSE THIS DEVICE CONSISTS OF A CONTROL 
ULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. THESE UNITS ARE 

DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE IS ONE HARDWARE 

PARAMETER THAT CAN VARY AMONG UNITS CALLED THE Q-FACTOR. THIS Q-FACTOR 

MAY BE 0 OR 1. BELOW IS A SIMPLE WAY TO BUILD A TABLE FOR ONE XY11 

WITH EIGHT UNITS. 


# UNITS (D) 2? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? a 
SUB-DEVICE # (0) ?. O<C 
Q-FACTOR (0) 0 ? *a<cRS” 


UNIT 2 
CSR <a (6) - i n+ ana 
SUB-DEVICE # (0) 

Q-FACTOR (0) 1 ? Oct. 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


SEQ 0010 


UNIT 5 

CSR <iq ee (0) ? ——" 
SUB-DEVICE # (0) ? 

Q-FACTOR (0) 0 ? chs 


UNIT 6 
CSR ~ sa (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (9) 0 2 “<CR> 


UNIT 7 

CSR ADORESS (0) ? = 
SUB=DEVICE # (0) ? 

Q-FACTOR (0) 0 ? JF 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
+ maa RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING MULTIPLE 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS DO NOT 
We: — dbractateal FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS NOT VERY 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION FEATURE. 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? er ae 
SUB-DEVICE # (0) ? 0,1 
Q-FACTOR (0) 0? 1 O<cRS 


UNIT 3 

CSR ADDRESS (0) ? 1ZO00OKER> 
SUB-DEVICE # (0) ?. 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


SUB-DEVICE # (0) ? 
Q-FACTOR (0) 0? 1<CR> 


UNIT 7 
CSR soene ss (0) ? 160000<CR> 
6,7<CR> 


AS YOU CAN SEE IN THE yea | DIALOGUE, THE RUNTIME oy Ae Re BUILD 
INFORMATION GIVEN IN A E PASS 


ECOND PAS 
SUB-DEVICES WERE SPECIFIED. - U 
ares t TO INCREMENT THE DATA FROM THE FIRST NUMBER TO THE : 
THIS CASE, SUB-DEVICES 2, 3, 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE 
WERE SPECIFIED BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE 


SEQ 0011 





ron tier MUST BE 

THE FOUR ENTRI 
THEY WERE ONLY SPE 
THIRD PASS. 


ON EVEN BOUNDARY). THE CSR se wits? “FACTORS 
ES ARE ASSUMED TO BE 160000 AND 0 RESP Y SINCE 
CIFIED ONCE. THE LAST TWU UNITS ARE SP D IN THE 


— PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS SHOWN 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? ym os 
SUB-DEVICE # , O°. ? Ae <CR> 


AS YOU CAN SEE FRUM THIS:EXAMPLE, NULL REPLIES (COMMAS ENCLOSING A NULL 
FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE IS A 
CLOCK) QUESTIONS 


3. TYPE ‘'R NAME’', WHERE NAME IS THE NAME OF THE BIN OR BIC FILE 


FOR THIS PROGRAM 
4. TYPE "’START"’ 
5. ANSWER THE "‘CHANGE HW’ QUESTION WITH ‘‘Y"* 
6. ANSWER ALL THE HARDWARE QUESTIONS 
7. ANSWER THE ‘‘CHANGE SW’ QUESTION WITH "'N’* 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE DEFAULTS FOR 
FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS ARE DESCRIBED IN SECTIONS 


SEQ 0012 





3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY A 
DIAGNOSTIC: GENERAL, . SIC AND EXTENDED. GENERAL ERROR MESSAGES ARE 
ALWAYS PRINTED UNLESS THE IER" FLAG IS SET (SECTION 2.3). THE GENERAL 
ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = = ch TYPE 34, FATAL, DEV FATAL, HARD OR SOFT) 


UNIT NUMBER = 0 - (N-1) (N IS THE NUMBER OF UNITS CONFIGURED) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME see eg 
INFORMATION ABOUT THE ER none Rind ARE ALWAYS PRINTED UNLESS THE “‘IER"’ 
OR ““IBR'’ FLAGS ARE SET (SECTION 2.3). THESE MESSAGES ARE PRINTED AFTER 
THE ASSOCIATED GENERAL MESSAGE. FOR THE RC25 DISK EXERCISER, ALL BASIC 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION SUCH AS 
REGISTER CONTENTS OR GOOD/BAD DATA. THESE 5] ALWAYS gt) ED UNLESS 

THE ““IER’, R'’ OR ‘‘IXR’’ FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR OMe SSAGE AND ANY 
ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 
THIS LIST OF RC25 —e ERROR MESSAGES IS ery gag # BY ERROR NUMBER. 


THE LETTERS G, B, AND X REFER TO THE GENERAL, BASIC, AND EXTENDED TEXT 
OF THE ERROR MESSAGE, RESPECTIVELY. ALL NUMERIC VALUES ARE IN OCTAL 


3.2.1 SYSTEM-FATAL ERROR MESSAGES 


THESE CONDITIONS WILL CAUSE THE DIAGNOSTIC TO BE ABORTED. THEY WILL 
APPEAR AFTER THE SOFTWARE DIALOG. 


1 G TOO MANY UNITS 
B XX:XX:XX MORE THAN 16. UNITS SPECIFIED 


2 G NEITHER P NOR L CLOCK WAS FOUND ON THE SYSTEM 
3.2.2 CONFIGURATION ERROR MESSAGES 


C 
AND THEY ARE NOT INCLUDED IN THE SUMMARY REPORT NOR THE END~-OF~PASS 
MESSAGE. ANY UNITS INVOLVED ARE IMMEDIATELY DROPPED. 


SEQ 0013 





B 2 


IF YOU TRY TO CONFIGURE MORE THAN 4 UNITS AT THE SAME IP ADDRESS, THE 
FOLLOWING MESSAGE WILL APPEAR: 


ALREADY 4 UNITS AT IP XXXXXX(O) 


THE REMAINING UNITS (OVER 4) WILL BE DROPPED. IF YOU TRY TO CONFIGURE 
MORE THAN 4 CONTROLLERS, THE FOLLOWING MESSAGE WILL APPEAR: 


MORE THAN 4 DIFFERENT IP ADDRESSES 
ALL _UNITS ree WITH THE STH (AND HIGHER) CONTROLLERS WILL BE 
DROPPED. FINALLY, IF YOU SPECIFY IDENTICAL PLATTER ADDRESSES UNDER 
ONE CONTROLLER (IP ADDRESS), THE FOLLOWING MESSAGE WILL APPEAR: 
DUPLICATE PLATTER ADDRESS XXX. AT IP XXXXXX(0) 


os (BEYOND THE FIRST) WITH IDENTICAL PLATTER ADDRESSES WILL BE 


3.2.3 DEVICE-FATAL ERROR MESSAGES 


IF THE ERROR PERTAINS TO A CONTROLLER, THEN ALL THE UNITS ATTACHED TO 
THE CONTROLLER WILL BE DROPPED. OTHERWISE, THE ERROR PERTAINS TO A 
SINGLE UNIT, AND ONLY THAT UNIT IS DROPPED. 


10 G REGISTER EXISTENCE TEST FAILED 
B XX:XX:XX NO RESPONSE AT ADDRESS XXXXXX(0) 


11 ABOUT TO VERIFY VECTOR XXX(O) FOR DEVICE XXXXXX(O) ... 
(FOLLOWED BY EITHER NOTHING OR) 
G VECTOR TEST FAILED 


12 G BR LEVEL TEST FAILED 
B XX:XX:XX INCORRECT BR LEVEL GIVEN FOR DEVICE XXXXXX(0) 


ERROR 13 wa TO THE FOUR STEP HARD INITIALIZE SEQUENCE DESCRIBED IN 
THE UNIBUS / Q=-BUS STORAGE SYSTEMS PORT (UQSSP) SPEC. THE SA REGISTER 
CODE “ts PROVIDED TO ASSIST IN DIAGNOSIS. 
13. G_ INIT —— FAILED 
XX:XX:XX STEP X READ ERROR ON DEVICE XXXXXX(O) 
SA: XXXXXX(0) 
ERROR 14 MEANS THAT THE ERROR BIT (BIT 15) OF A DEVICE'S SA REGISTER 
WAS FOUND SET TO 1. THE LOW-ORDER 11 BITS DESCRIBE THE ERROR. 


14 G FATAL PORT / CONTROLLER ERROR 
B XX:XX:XX ERROR CODE sane IN SA REGISTER OF DEVICE 


XXXXX 
x SA: XXXXXX(O) 


SEQ 0014 


C 2 


ERROR 15 IS REPORTED WHEN THE RC25 FAILS TO RESPOND TO ONE OF THE 
LISTED MSCP COMMANDS. 


15 G pty RESPONSE TIMEOUT 
B XX:XX:XX FAILED TO wecaare END MESSAGE FROM DEVICE 


x COMMAND: SET CTLR CHAR (OR) 
Sen DATA SUPPLIED PROGRAM (OR) 


ERROR 16 REFERS TO THE MSCP ‘‘ONLINE’’ MESSAGE SENT TO igh UNIT DURING 
THE INITIALIZATION SUBTEST. THE STATUS CODE AND SUB-CODE ARE TAKEN 
FROM THE MSCP END MESSAGE (AS THEY ARE IN ALL ERROR MESSAGES). 


16 G ONLINE FAILED 
B XX:XX:XX ERROR IN PLATTER XXX. TO ONLINE COMMAND FOR 


x STATUS CODE: KxC0 
x SUB-CODE : SHXXCOD 


ERROR 17 IMPLIES THAT (A) YOU HAVE ALLOWED WRITES TO THE CUSTOMER DATA 
AREA THROUGH THE HARDWARE QUESTION, AND (8) THE WRITE-PROTECT 
PUSHBUTTON FOR THE UNIT IS ENGAGED. 


17 G WRITE-PROTECT CONFLICT 
B XX:XX:XX PLATTER XXX. IS SW WRITE-ENABLED BUT HW 
WRITE=PROTECTED 


ACCESS COMMAND HAS T 
REQUIRED INTERVAL). 


18 G ooops FAILED 
B XX:XX:XX ACCESS ha ON PLATTER XXX. 
x STATUS CODE: XXx(0) 
x SUB-CODE : HHXX C0) 


ERROR 19 OCCURS WHEN AN MSCP I/O COMMAND RESULTS IN AN END MESSAGE WITH 
THE “UNIT OFFLINE’ STATUS CODE. 


19 G FATAL I/0 ERROR 
XM:MX:XM PLATTER XXX. WENT OFFLINE 
CMD REF —o ms x(0) 
SUB-CODE : x(0) 
COMMAND : READ (OR) 
+ 1 ae (OR) 


IT 
WRITE=COMPARFE (OR) 
XXX (0) 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: ! OR THIS 


T ee “IN i 
ACTUAL # BYTES T SPER ED: XXX. 
1/0 BUFFER DESCRIPTOR: AXXKK COD KXXXXX (0) 


SEQ 0015 








D2 
SEQ 0016 
20 G CONTROLLER TIMEOUT 
B  XXsXX2XX pnevits XXXXXX(0) NOT PROCESSING COMMAND 


ag 7: IF YOU ARE RUNNING THE DM EXERCISER SUBTEST, AND ONE OF 
P COMMANDS WAS REJECTED WITH A STATUS CODE OTHER THAN 
TE THAT THE STATUS CODE IS NOT FROM MSC?. 


DUP COMMAND FAILED 
XX:XX:XX MESSAGE as ath BY DUP DERVER ON DEVICE 


XX 
COMMAND : 2 ae cs PROGRAM (OR) 
DUP STATUS CODE: X. 


Seg 22 IS ALSO RELATED TO THE DM age tt SUSTEST. IT _ INDICATES THAT 
E FRONT PANEL TEST (EXECUTING UNDER HOST CONTROL IN THE DM) HA 

FAILED TO PROVIDE THE HOST WITH A SET OF S OPERATING STATISTICS WITHIN A 

PRE=DETERMINED TIME INTERVAL. THE FPT IS ASSUMED TO BE DEAD. 


22 G ODM EXERCISER TIMEOUT 
B XX:XX:XX NO RESPONSE FROM FRONT PANEL TEST EXECUTING IN 
DEVICE XXXXXX(0) 


3.2.4 HARD ERROR MESSAGES 


MOST HARD ERRORS ARE REPORTED TO THE HOST THROUGH THE END MESSAGES 
ASSOCIATED WITH MSCP READ AND WRITE COMMANDS. ERROR NUMBERS 31 = 41 
ARE BASED ON MSCP STATUS CODES 1 = 11. 


30 G 1/0 REQUEST oe 
B XX:XX:XX PLATTER XXX. = STATUS CODE: XXx(0) 
x CMD REF NUM: XXXXXX(0) 

x SUB-CODE: XXXX(0) 

x COMMAND: R 


AD (OR) 
READ=COMPARE (OR) 
WRIT ) 
oo (OR) 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
! OR THIS 


LBN: XXXXX. 

BYTE COUNT IN COMMAND: X 

ACTUAL # BYTES TRANSFERRED: HAXXX. 

1/0 BUFFER DESCRIPTOR: AXXHKK COD XXXXKX (0) 


1/0 REQUEST FAILED 

MX:MX:MXX PLATTER XXX. = INVALID COMMAND 
CMD REF NUM: XXAXXX(O) 
SUB~CODE : XXXX (0) 
COMMAND: READ 


OR) 

READ=COMPARE (OR) 

WRITE ) 

“2 tite (OR) 
BAD ae REPORTED: XXXXX. ! EITHER THIS 
LBN: ! OR THIS 
BYTE COUNT IN COMMAND: XXXXX. 
ACTUAL # BYTES TRANSFERRED: XXXXX. 
1/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(O) 


MM KOC MRK 











SEQ 0017 


32 


G a REQUEST FAILED 

B XXM:XX:XX_ PLATTER XXX. = “sateen ABORTED 
x CMD REF NUM: XXXXXX(O) 

x SUd=CODE: XXXX(0) 

x COMMAND: READ (OR) 

READ=COMPARE (OR) 


WRITE (OR 
A aepmas (OR) 
BAD geet REPORTED: XXXXX. EiTHER THIS 
OR THIS 


LBN: XXXXX. 

BYTE COUNT IN COMMAND: tg 

ACTUAL # BYTES TRANSFERRED: 

1/0 BUFFER DESCRIPTOR: RXXKX COD Foxxx (0) 


1/0 REQUEST FAILED 
MX:MX:XX_ PLATTER XXX. = UNIT-AVAILABLE 
CMD REF NUM: sr XXX (0) 
SUB=CODE: XXXX 
COMMAND: RE (OR) 
READ=COMPARE (OR) 
WRITE 
bs peataaeg (OR) 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX. ! OR THIS 
BYTE COUNT IN COMMAND: a. 


ACTUAL # BYTES TRANSFERRED: 
1/0 BUFFER DESCRIPTOR: AXXKNK COD enn0x (0) 


1/0 “i FAILED 
XX:XX:XX_ PLATTER XXX. = mn FORMAT ERROR 
CMD “REF rye XXXXXX (0) 
SUB=CODE: XXXX(0) 
COMMAND : READ (OR) 
READ=COMPARE (OR) 
WRITE (OR) 
— (OR) 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
X. ! OR THIS 


: XXXX 
BYTE COUNT IN COMMAND : = 
ACTUAL # BYTES TRANSFERRE 
1/0 BUFFER DESCRIPTOR: RX CO) ocx (0) 


1/0 REQUEST FAILED 
MX:MX:XX_ PLATTER XXX. = WRITE-PROTECTED 
CMD REF NUM: XXXXXX(0) 
SUB-CODE: XXXX(0) 
OMMAND: READ (OR) 
READ=COMPARE (OR) 
WRITE (OR) 
WRITE=COMPARE (OR) 
XXX (0) 
BAD — REPORTED: XXXXX. ' EITHER THIS 
LBN: XXXXX. ! OR THIS 
TE COUNT IN ie ate XX 


BY XXX. 
ACTUAL # BYTES TRANSFERRED: XXXXX 
1/0 BUFFER DESCRIPTOR: XXXXXX(0) ocx (0) 


34 


xe KOG MM 


35 


MCMC Mu 


36 


eK OGC Me 


>< OK OK 





F 
SEQ 0018 
37 G 1/0 ow FAILED 
B XX:XX:XX PLATTER XXX. = DEVICE COMPARE ERROR 
xX CMD Maer NUM: X see XXXX (0) 
x SUB=CODE: XXXX( 
x COMMAND: READ (OR) 
READ=COMPARE (OR) 
WRITE (OR 
WRITE=COMPARE (OR) 


XXX 
BAD BLOCK REPORTED: XXXXX. EITHER THIS 
LBN: XXXXX. OR THIS 
BYTE COUNT IN ere el 

ACTUAL # BYTES T ANSFERR ED: XXXXX. 

1/0 BUFFER DESCRIPTOR: RXXKX CO) XXXXXX (0) 


1/0 REQUEST FAILED 

XX:XX:XX_ PLATTER XXX. = DATA ERROR 
CMD REF — ee 
SUB-CODE : 
COMMAND : 


MM MMC MMM 


EAD (OR) 
READ=COMPARE (OR) 
WRIT 
WRITE=COMPARE (OR) 


XXX (0) 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX. ! OR THIS 
BYTE wx “IN COMMAND: XXXXX 


ACTUAL # BYTES TRANSFERRED: XXXXX. 
1/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(O) 


1/0 REQUEST FAILED 

XX:MM:XX_ PLATTER XXX. = HOST BUFFER ACCESS ERROR 
CMD REF NUM: —- 
SUB-CODE: XXXX 
COMMAND : 


x 
Xx 
x 
x 
x 
G 
B 
x 
x 
x 


(OR) 
READ=COMPARE (OR) 
ITE (OR) 
otal (OR) 
BAD = REPORTED: XXXXX. ! EITHER THIS 
LBN: ! OR THIS 
BYTE COUNT IN COMMAND: 


ACTUAL # BYTES TRANSFERRED: 
1/0 BUFFER DESCRIPTOR: RXXHXK CO) “en (0) 


1/0 REQUEST FAILED 
MX:MX:XX PLATTER XXX. = CONTROLLER ERROR 
CMD REF — XXXXXX (0) 
SUB=CODE: XXXX(0) 
COMMAND : RE AD (OR) 
READ=COMPARE (OR) 
ITE (OR) 
WRITE=COMPARE (OR) 
XXX(O 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
BN: ! OR THIS 


aM OC MMM 


XXXX. 
#B SFERRED: XXXXX. 
1/0 BUFFER DESCRIPTOR: KXXKXKCO) WOXKKX (0) 








ar | FAILED 
x: OXKEXX PLATTER XXX. = DRIVE ERROR 
CMD REF NUM: XXXXXX(0) 
SUB=CODE: XXXX(0) 
COMMAND : 


: OR) 
5 (OR) 
NS ata (OR) 


XXX 
BAD BLOCK REPORTED: XXXXX. ; ENTHCA HIS 
LBN: XXXXX. ! vu? THIS 
BYTE wi IN ere XXXXX. 
ACTUAL # BYTES TRANSF ERReD: XXXXX. 
1/0 BUFFER DESCRIPTOR: XXX (OD KXXXKK CO 


ye 42 1S DETECTED AT THE HOST. IT CAN ARISE IF THE USER HAS CHOSEN 
THE OPTION TO CHECK ALL WRITES AT THE HOST BY FOLLOWING EACH WITH A 
READ TO THE SAME DISK ADDRESS. 


42 G be REQUEST FAILED 
B XX:XX:XX PLATTER XXX. = HOSI-DETECTED WRITE-COMPARE 
ERROR 
LBN: XXXXX. 
BYTE COUNT IN COMMAND: 
ACTUAL # BYTES TRANSFERRED: KKKX. 


ERROR 43 DESCRIBES A SINGLE 1/0 COMMAND FOR WHICH NO MSCP END MESSAGE 
WAS EVER RECEIVED. 


43 G _ REQUEST FAILED 
X:XM:XX_ PLATTER XXX. = COMMAND TIMEOUT 


CMD REF NUM: XXXXXX(0) 
COMMAND: READ ( 


READ=COMPARE (OR) 
WRI ) 


E (OR 
WRITE=COMPARE (OR) 
XXX (0) 
x LBN: XXXXX. 
® BYTE COUNT IN COMMAND: XXXXX. 
K 1/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(O) 


3.2.5 ERROR LOG MESSAGES 


ERROR LOG MESSAGES (DATAGRAMS) DESCRIBE MINOR ERRORS ape egy BY THE 
CONTROLLER. THEIR OCCAISIONAL OCCURRENCE IS pte eeu sve FIELDS OF 
ARE PRINTED (A) IF THE USER IS RUNNING THE P ROGRAM IN 
AND (8) IF NOT SUPPRESSED BY THE USER DURING THE SW 
DIAL ONE OF THESE cies. THE COMMAND REFERENCE NUMBER, CAN LINK THE 
DATAGRAM WITH A HARD ERROR 


ERROR LOG MESSAGES ARE NOT INCLUDED IN THE CUMULATIVE ERROR COUNT WHICH 
APPEARS WITH THE END-OF-PASS MESSAGE. HOWEVER, IF THE MULTI-DRIVE 
SUBTEST IS se RUN, THEN DATAGRAM PARTICULAR UNIT 
(AS OPPOSED TO THE CONTROLLER) ARE TALLIED 

yo F OF WHETHER THEIR PRINTING HAS BEEN SUPPRESSED. THE FORMAT IS 


SEQ 0019 





SEQ 0020 
ERROR LOG MESSAGE RECEIVED: 
CMD _REF — XXXXXX (0) 
PLATTER: ! FUR SMALL DISK ERRORS ONLY 
FORMAT: CONTROLLER ERROR (OR) 
HOST MEMORY aeeeee ERROR (OR) 
oth DISK ERROR (OR) 


XX (0) 
EVENT cope: SUCCESS (OR) 
INVALID COMMAND (OR) 
D ABORTED (OR) 


WRITE=PROTECTED (OR) 
DEVICE COMPARE ERROR (OR) 
DATA ERROR (OR) 

HOST BUFFER ah — (OR) 
CONTROLLER ERROR (OR) 

DRIVE ERROR (OR) 

XXX (0) 


SUB-CODE: XXXX(0) 
HOST MEM ADDR: XXXXXX(O) XXXXXX(O) ! HOST MEM ACC ERR ONLY 


4.0 PERFORMANCE AND PROGRESS REPORTS 


CONF I 
eoece TEST UNDER THE DM EXERCISER. AN B 
TROL HOW OFTEN THE END-OF=PASS MESSAGE IS PRINTED. SECTION 2! 2 


DESCRIBES SWITCHES. 


PRIOR TO THE END-OF=PASS MESSAGE, THE eit git SUMMARY REPORT IS 
IS ick: ey ON WHICH 


4.1 MULTI-DRIVE SUBTEST REPORTS 
ELAPSED TIME: XX:XX:XX 


NO. NO. 
READS WRITES MBYTES MBYTES HARD 
(k=1000) (K=1000) READ WRITTEN ERRORS 


ee a a mee Om om ae Sse eS oe ae —= SS a ee me om ee oe 


XXXAX* XXXXX* MXXXX = AXA XXXXX 
XXXXX* XXXXX* MXXXMX = XXXXX XXXXX 
XXXXX# XXXXX* AXXXXX = AXXXX XXXXX 





I 2 


ECC ERRORS ARE REPORTED THROUGH ERROR LOG MESSAGES. THEY ARE TALLIED 
REGARDLESS OF WHETHER THE MESSAGE PRINTING HAS BEEN SUPPRESSED. 


N SYMBOL ECC ERRORS: 
ECC 
FIELD 
ONLY 


AXXXX 
XXXXX 
XXXXK 





4.2 DM EXERCISER SUBTEST REPORT 
ELAPSED TIME: XX:XX:XX 


NO. NO. NO. 
UNIT READS WRITES SEEKS MBYTES MBYTES NO. HARD NO. SOFT 
NO. (k=1000) (K=1000) (K=1000) READ WRITTEN ERRORS ERRORS 


XX XXXXX* XXXXX* AXXXX* AXXXX = XXX XXXXX XXXNX 
XX XXAXX* XXXXX* XXXXX* XXXXX = XXXXX XXXXX XXXXX 
XX XXXXX* XXXXX* XXXXX* XXXXX = XAXXX XXXXX XXXXX 


5.0 DEVICE INFORMATION TABLES 
THE HARDWARE P=TABLE APPEARS AS FOLLOWS FOR EACH UNIT: 
15 00 


IP ADDRESS 


VECTOR ADDRESS 


BR LEVEL i 


iPRi i PLATTER ADDRESS i 


PR = UNIT PROTECTION BIT 


DURING is Hg ES ie PROCESS AFTER A START, RESTART, OR se 
OMMAND RC25 DISK EXERCISER CREATES UP TO FOUR RUN-TIME T 
TATUS TABLES, OR CST‘S), 


ONLY TO 
IS A DYNAMIC 7-WORD BLOCK: 


SEQ 0021 





SEQ 0022 


fom pow}oefountpoepoepoe}pootpoofoetpoetpoetpostoctortons+ 
H IP ADDRESS H 
pen pen pon ponponpontpontontectpenteetoeotesteatestest 
iCS: i VECTOR ADDRESS i 
$ueofoetpon}poe}oeton}footpoetpootpoet}oetfoetpoet}oetpoortor+ 
H NUMBER OF UNITS ‘ BR LEVEL ' 
$eetenponsenponpon penton ponpontentontooteotoctost 
iPRiUP}US! UNIT NUMBER : PLATTER ADDRESS i 
Geopontontoopootoctoetpoetootoctootpoctocotostoetont 
iPRIUPiUS! UNIT NUMBER ;: PLATTER ADDRESS H 
fom pontowfouetoatpoetpontpootpoctfoetpoetpoetpoetpostpootpfort+ 
{PRiUP:US! UNIT NUMBER : PLATTER ADDRESS i 
Grotootpootpoetoetoetpoetoatootoctpoctostoctoecteste=t 
‘PRiUPiUS! UNIT NUMBER : PLATTER ADDRESS H 


Gootpootpoetpoetpontpoefoetfooe}pootpoetpootpoetoetoetoctort+ 


CS = CONTROLLER STATUS ad (ONLINE / OFFLINE) 
PR = UNIT PROTECTION BIT 

UP = UNIT PRESENT BIT 

US = UNIT STATUS BIT (ONLINE / OFFLINE) 


6.0 SUBTEST SUMMARIES 


THE RC25 DISK farsatic CONSISTS OF ONE TEST SUBDIVIDED INTO THREE 
orth Uy INITIALIZATION, MULTI-DRIVE, AND OM EXERCISER. IN THE FIRST 
PASS FOLLOWING A START, RESTART, CONTINUE C THE 
INITIALIZATION SUBTEST WILL ALWAYS PRECEDE THE EX ECUTION OF ANY OTHER 
SUBTEST. SUBSEQUENT PASSES WILL NOT INCLUDE THE INITIALIZATION SUBTEST. 


6.1 INITIALIZATION SUBTEST 


THE PURPOSE OF THE INITIALIZATION SUBTEST IS TO VERIFY THE HARDWARE 
CONFIGURATION AS SPECIFIED BY THE OPERATOR, AND TO BRING EACH UNIT 
ONLINE. SPECIFICALLY, THE SUBTEST PERFORMS THE FOLLOWING ACTIONS FOR 
EACH CONTROLLER IN TURN: 


1A weit wiieate yp hg TEST = TO VERIFY THAT THE 
ONTROLLER'S IP AND SA REGISTERS APPEAR ON THE UNIBUS, 


OPERAT 

HARD INIT SEQUENCE, AS DEFINED IN THE UNIBUS / 
Q-BUS STORAGE SYSTEMS PORT SPECI 

THE er OF THE ‘SET CONTROLLER CHARACTERISTICS’ COMMAND 


THE SENDING “OF THE MSCP ‘‘ONLINE’’ COMMAND FOR EACH PLATTER 
SPINNING UNDER THE CONTROLLER, 

THE SENDING OF ONE OR TWO MSCP 'ACCESS'* COMMANDS FOR EACH 
i THE CONTROLLER TO VERIFIY THAT EACH DISK 


S WILL CAUSE 
L SURVIVING CONTROLL LERS AND UNITS, THE PRO 
EXECUTION OF EITHER THE MULTI-DRIVE OR DM EXERCISER SUBTEST. 





6.2 MULTI-DRIVE SUBTEST 


THE PURPOSE OF THE MULTI-DRIVE SUBTEST IS TU EXERCISE THE DISK DRIVES 
IN A MANNER SIMILAR TO HEAVY USAGE IN AN OPERATING SYSTEM ENVIRONMENT. 
THE NSUBTEST ISSUES MSCP 1/0 COMMANDS TO ALL UNITS FAST ne SO THAT 
EACH CONTROLLER HAS SEVERAL COMMANDS QUEUED AT ANY GIVEN TIME. THE 1/0 
COMMAND PARAME ARE GOVERNED BY USER RESPONSES wor THE SOFTWARE 

E COUNTS DETERMIN RANDOM. AS EACH 


OPERA 
UNTIL THE SPECIFIED NUMBER OF MEGABYTES HAS BEEN TRANSFERRED TO / FROM 
et is’ ice." HAPPENS, END-OF=PASS IS DECLARED, AND THE SUMMARY 


IF THE ~ tg ye A — / WRITE ERROR, IT WILL TRY A senna bak 
NUMBER TIMES CORRECT THE ERROR. IF ALL RETRIES FAIL, THEN A HARD 
ERROR WILL BE REPORTED TO THE HOST, AN ERROR MESSA . we ie Be pelt 


E TERMINAL, AND THE 
REPORT. THE UNIT INVOLVED WILL BE DROPPED FROM TESTING ts 18 HARD 
ERROR COUNT HAS EXCEEDED THE USER-SPECIFIED LIMIT. 


6.3 DM EXERCISER SUBTEST 


THE DM EXERCISER CONSISTS OF a FRONT PANEL TEST (ROM RESIDENT ON THE 
CONTROLLER BOARD) RUN IN A CONTINUOUS LOOP UNDER HOST SUPERVISION. IT 
IS USED TO EXERCISER A DISK BY (A) PERFORMING READS ON ALL TRACKS OF 
THE PLATTER, AND (B) FORCING WRITES TO THE DIAGNOSTIC TRACKS ONLY. ALL 
ERRORS DETECTED IN THE earcatie: MACHINE, ag : HARD AND SOFT, oo 


TAKES MUCH L LONGER TO 
ACCOMPLISH THE SAME FEAT; IT TAKES ABOUT 10° MINUTES PER UNIT TO REACH A 
2 MEGABYTE TRANSEER LIMIT?. 


THE HOST INITIATES THE FRONT PANEL TEST (FPT) WITH °. CROM PRIMER 
PROGRAM, WHICH IS DOWNLINE LOADED FROM THE HOST TO THE RC25 VIA THE DUP 
OMMAND ‘EX TE D PRO E Ss 


Cc E E ts R IBLE FOR 
LOADING THE FRONT PANEL TEST INTO RC25 RAM SPACE, THEN PASSING CONTROL 
TO IT. IF THE ‘EXECUTE SUPPLIED PROGRAM'’ SUCCEEDS, THE HOST RESPONDS BY 
ISSUING THE DUP COMMAND '‘SEND e re THIS COMMAND TELLS THE FRONT PANEL 


MEMORY RESERVED FOR MUTUAL ACCESS. 


THE FPT EXERCISES ONE PLATTER AT A_TIME PER PASS, AND EACH FPT PASS 
TAKES APPROXIMATELY 5 MINUTES. AT THE COMPLETION OF i FPT PASS, A 


Cc D, AND ALL 
DROPPED. OTHERWISE, THE UNIT NUMBER AND THE NUMBER OF BLO 
TRANSFERRED rine THE FPT PASS WILL BE DISPLAYED TO THE USER (IF IN 
ATTENDED MODE). 


SEQ 0023 


SEQ 0024 
APPENDIX A = DATA PATTERNS 


THERE ARE A PRE=DEFINED DATA PATTERNS ane A ie THE og Me be 
OFTWARE QUEST < ¥ YOU MA fr + E ANY ONE PATTERN 
E ALL PATTERNS USED 


HEX OCTAL BINARY 


PATTERN 1 RANDOM NUMBERS 
PATTERN 2 000000 0 000 000 000 000 000 
PATTERN 3 177777 1117: 117 «117 197 «111 
PATTERN 4 105613 1 000 101 110 001 011 
PATTERN 5 031463 0 011 001 100 110 011 
PATTERN 6 030221 0 011 000 010 
PATTERN 7 000001 0 000 000 000 000 00 
0 000 000 000 000 
0 000 000 000 
0 000 000 000 


0 000 000 000 
0 000 000 000 


So 
oo 
-—o 


eh ad ae Sd ad DD 3 


0 
0 
1 
1 
1 
1 
1 
1 
1 


177777 
PATTERN 8 : 177776 


Ome 
COO] 22] 22 
ee ed ad ad td ed oD 


0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


aaa I I I 
COOCCOCOH] 2] "0 


Iawadedetatdedead ad ed ad ad od od od IO 
DOO 2222] 2 BP PB OP SS - -“ OSS 


ooo 


So 
oS 
So 
ooo 
So 
So 
—) 


IVI etetded td od II IOOOD 
Soo 
Pat—l— lo ee 


OOO 3 2 2 St 2 I 


oooo 


ooo] = 
S 
ss 
oo 
oo 
oo 
oo 
ss 
i= 


0 000 000 000 
00 000 000 000 

000 000 000 000 
000000 00° 000 000 000 


ooo 





~N 


ocree -—-O-o-oe- 
SeG-++ eet e-e- ee 


oooeenr-OSOere-SOe- o-oo 
oooceen-SCOere-SOe- Oro 
eooeoere-OOerr Or oro 


oooeer-OOnr- o-oo 
ooeoee--SOOoere- oer OoerOonr 
Coooernr-OCOr Ono or 


ooeoeenr--SOOoen- o-oo 
oooere-COre oer oer or 
Cooeoee-OOoer- o-oo or 
ooo oS 

S237, bee 
ooeer-OSere Or Or or 


OoOrer-COCOerK-Oe- Or or 


PATTERN 9 


1 011 011 0117 011 001 


133331 


B6D9 


PATTERN 10 


ee OOO - OO On- Oo-e oO 
oooer--OCOer Orc Ooer 
ern OCOer COO Or Oro 


CoO e K--COeY KOK Or-or 
wer -OOOe - OOo Or OKO 
COCO" KK K-COr KOK oe UeE 


er OOO - OOK Oe OO 
CoO e eg -“COe Orono 
H--—-OCeOeK K- OOo o-oo 


oooers-0CCOer Oe Oro 
Hee OOOn- OOO oO 
CooeoeH-OCOerK oor or 
ee COCO - OO Or oro 
SCooe rr OO Oc Oro 
ere OOCOnK K- OOK Or oOo 


CoO eK-COer eon oOror 


al al al ala! nanan 
nnn val al n«anan 
nn val al wnanawn 
nnn mun manay 


- 
cone 
2 
[oq 
ive) 
ee 
- 
<= 
a 


Sed eed ek ed ed el ed eh 
Ce ed ed eh ed hh hd 
er OCOC0O kK CORK K On on oe one 


er OCC §- COOK On OK Oro 
lm om ed eh eh bb hb bb) bp = 
er KH OOOK KOO KOK oor or 


ooOoeer-0O0r-SCOo-Soe- Oe Oo 
ed wh eh hh a ed 
er OOOK COCK OK Ono oe 


CT ee ed eh he hh he hd 
er OOCOn-- COOK o-oo oe 
Se ee ee ee 
COCO e KOO KOO Oo One Or Oo 
er O00" COCK On On-oer or 
OCOeK KK CON OOo o-oo 


COCOen-COn-- OOO On oro 


PATTERN 12 





Q 
— 
oo 
Oo 
—_ 
—_ 
So 
— 
om 
«> 
—_ 
= 
Oo 
_ 
= 
So 


066666 


6DB86 


PATTERN 13 


oooonOoo 
Cooooeercoo 


ooo 
ooo 
Soooooeoeosoo 


Sooooooooo: oo 
Sooooooooo=oo 
SOoooooooooeoe. Oooo 


SOooooooooooo- ooo 
VOOCoooooooooeo=oo 
SOoOoCoooooooooeooes-o 


CSOOoooooooooNoor 


oo 
oo 
oo 
oo 
oo 
oo 
oo 
oo 
oo 
oo 
oo 


00 000 000 000 


PATTERN 14 


Ce ek el el el ol el ol eh ee eh eh eh ed 
Korner er errr errececececee 
Ok ek Leek ed oe el eel el el ee eh el 


err Orrer reece eee ee 
eee K-Or errr recececeeee 
wrerr Kr Orrrrrrereree 


ewer r Kr Orr nrr ere 
eer reer KOK Kr Kreree-m— 
ek a el ek el eel oe 


weer rer rrr RK Or rrr 
CN ek cel week OP ced eed eel el ed 
wjrrrrrrrrenr Kr Orres 


ek ek el eed coal DT cel ol oe 
eee RO OT 
wre r rrr errr ere eK OF 


Ce ek cell ed cell ool coll el oe 


PATTERN 15 


-—--—SOCoOnr - OO Oe or OS 
SOOoCoCooooooooeooeo 
ooeoee OCOenre Or oro 
Ce eek eek mel see seed eel ool ce, sel mee see ee, ee ce cee 
er OOO - OO Ooo Oo 
Cooerer OOK o-oo 


errr errr rr rrreer — 
eer OOCOnr - OO oe or oO 
CoCo e eK - CO K- O- Or or 


Ck, sek mech much meh meh mee seek, meh, mee meh, dh eh, seh seh ed 
or OOO - OO Or or Oo 
OCOm—K— — OOK OK OKO 
Ck seek ek seh eel ech eee seh eh eh seh mee eh eee eh ed 
ern O0COe COO oO- oO 
CCoOoerK-OCOnr KOO or 


Oe el ek cel eel cl cel eel eel cee el eel ol oe ol ed 


PATTERN 16 





COe:--OCOCCe ee -COoo[oooe 
ee nt 8 ee om ae a 
HOCK - OO 


oOeer -“COCCC eK ee -COCO°o°o°oo 


oS 
SS==-SSSS---=-SsSssss 
—eOOCOer es -—- COC °ocoereresceres 


Coorececeree 


— 


PATTERN 17 


Coen -COCOf8 eee --SCooooeo 


--—o -—-—e-- OOo reer em 
oooo 

4 oa Sss-----ss 3s 

Sooner -OCOCoCOeK KKK -COCo°ooo 

--OCOCOek eK -COC°oSoek eK KKK 


1 000 110 100 110 110 


PATTERN (8 


a 


OC Oe -“CO°C°oecsesee-— 

oo 
S---SSSS-==-=-=-Ssssss 
-OCOe—-—-“CO°Cooe cere -— 


SoooCoCo 
S=---SSSS=-=-=-=-=-Ssssss 


eee cree 
Oe - COCO KK - -OO0000 
ooo 
SLLLSSSSLLellSssssss 
Orne -COCCK eK -SCOoo°o°oo 
—SSS==--SSSssHH-eae 
-OCOCOe KK -COC°C;SeKSeeeSes 


Orn -COCCC eK KKK -COCoooo 


Fa 
at 


oa 
= 
2 
< 
w 
_ 
_ 
<< 
a 





-—--—-COC0Ce —---CCooeo 
ice cede oooeren— 
orn -OOCCCer ee 


-—-—-OCCCOee<--Soo0°o 
Ck wed 1 hh eh eh eh 
COnr—H—SCOCC KKK 


2esssHeeessss 
-—--COCOeK KK -COO°oeo 


SS===SSSS=eeee 
= wre 


--O°C9oeeK---SoooO 
-—-COCO ee“ - Oooo 
oor OOC°CoCree— 


——-OCC0Ce KK -COOCO°oo 





Sorcececercre 
-Oooo°o°o°eo 


-Soooooo 
-SOOooooo 


— 
o 
Q 
i ood 
—_ 
i=) 
Qo 
— 
_ 
S 
— 
— 
ee 
_ 
= 
— 


PATTERN 20 


ad 


ed eh eh hh hd 
os oorereen— 
SOC Ore -COOoCoeK ere 


Orr COCO eK KKK - Sooooo 
ed ed eh hh 
-COCer KK K-COCCooe SSK Ks 


oo _ 
Sane Seeserr rr Ssssss 
Orn -COCCeK eK KK -SCOC°o°oo 


S38 ----SSSSS-----— 

Coed ee 

Se - OOOO ee H-  - COOOSO 
o 

8---8883-——_- Ssssss 

—OOCOeK- -COO°ooek SSK 


Orn COCO kK KKK -CO°C°o°oo 


PATTERN 21 
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APPENDIX 8 = GLOSSARY 


AZTEC = PROJECT NAME FOR THE RC25 


MASS STORAGE COMMUNICATION PROTOCOL (MSCP) = THE METHOD OF 
COMMUNICATION USED BETWEEN THF HOST AND RC25 CONTROLLER. 


DIAGNOSTIC MACHINE (DM) = AN INTERPRETER BUILT INTO THE RC25 FIRMWARE 
THAT IS USED TO EXECUTE RESIDENT OR DOWNLINE LOADED PROGRAMS. 


INITIALIZATION sree - rt SERIES OF COMMANDS EXECUTED TO BRING AN 
RC25 ONLINE TO THE HOST. THiS SEQUENCE IS A STRICTLY-DEFINED SET OF 
As STEPS WHICH INFORMS THE DEVICE OF SUCH THINGS AS RING LOCATION AND 


UNIT = A UNIT AS SEEN BY THE DIAGNOSTIC SUPERVISOR; THAT IS, A SINGLE 
Rees DISK PLATTER. 


DRIVE-UNIT = A SINGLE RC25 DRIVE WITH A FIXED AND A REMOVABLE PLATTER 
ON ONE SPINDLE. 


UNIT NUMBER = A NUMBER BETWEEN 0 = 15 INCLUSIVE WHICH IDENTIFIES A 
PLATTER TO THE “piAGiOsrI¢ SUPERVISOR IT NUMBERS ARE ASSIGNED 
SEQUENTIALLY FROM 0 BY THE DIAGNOSTIC SUPERVISOR DURING THE HARDWARE 
CONFIGURATION QUESTIONS. NTHERE IS NO RELATIONSHIP BETWEEN A DISK*S UNIT 
NUMBER AND ITS PLATTER ADDRESS. 


PLATTER ADDRESS = A NUMBER BETWEEN 0 AND 253 THAT UNIQUELY IDENTIFIES 
ONE RC25 PLATTER. THIS NUMBER IS ASSIGNED THROUGH THE UNIT PLUG ON THE 
FRONT PANEL OF AN RC25. EVEN PLATTER ADDRESSES ALWAYS DESIGNATE THE 
— DISK AND ODD PLATTER ADDRESSES ALWAYS DESIGNATE THE FIXED 


CUSTOMER DATA AREA (ALSO HOST APPLICATION AREA) = BLOCKS RESERVED ON AN 
RC25 PLATTER FOR FREE USE BY THE CUSTOMER. THIS re. EXCLUDES THE 
DIAGNOSTIC TRACKS (DBN), THE FCT, THE RCT, AND RBN‘S 


ge Hh CUSTOMER DATA AREA = AN RC25 PLATTER WHOSE CUSTOMER TRACKS 
7 AA teenie BY THE USER THROUGH THE HARDWARE CONFIGURATION 


LBN (LOGICAL BLOCK NUMBER) - wie THAT N IS THE NUMBER OF rx th IN 
THE HOST APPLICATION AREA, LBN IS A NUMBER BETWEEN 0 AND (N 
INCLUSIVE WHICH IDENTIFIES A SINGLE SUCH BLOCK. 


SEQ 0029 





CZRCD.EXE Memory Aicet len map TKB M40.02 
-JUL-83 08:48 


Partition name : DUMMY 

Identification : V01.0 

Task UIC. : ©305,45] 

Task attributes: -HD 

Total address yenteuts 4y3 

Task image size 4720. word 

Task address limits: §62000 07 3397 

R-W disk blk Limits: 000002 000073 000072 00058. 


*t* Root segment: CZRCD1 

R/wW mem Limits: 002000 073327 071330 29400. 
Disk blk Limits: 000002 009073 000072 00058. 
Memory allocation synopsis: 

Section 


BLK. :(RW,1,LCL,REL,CON) 002000 000000 00000. 
SCODES$: (RO, I,LCLREL.CON) 002000 040446 16678. 
002000 prin 03432. 
010550 011604 04996. 
022354 017412 07946. 

041766 000034 


SFFFS :(RO,I,LCL,REL,CON) 
$GGG$ :(RO,I,LCL,REL,CON) 
SPLITS: (RO,D,LCL,REL,CON) 


073116 000 01 
$xYZ$ :(RO,1,LCL,REL,CON) 073266 000040 00032. 
073266 000040 00032. 


Global 

BIT9 001000 

BLSABS 042010-R 

BLSDIV 042246-R 

BLS$LAS 073266-R 

BLSMOD 042260-R 

BLSMUL 

BLSSGN Leegnr 

aa 042272-R 

BUFF.D 065506-n 
=R 


000400 


Page 1 


Title Ident 


CZRCD1 V01.0 
CZRCD2 V01.0 
CZRCD3 v01.0 
- BIGABS 2.4 
BI6MUL 2.8 
BIGSAV 2.4 


CZRCD1 v01.0 
CZRCD3 v01.0 


CZRCD2 v01.0 
CZRCD3 v01.0 


CZRCD4 V01.0 


SEoSR238838 


oo 
a— 
Aon 


te ett ete thes 
So 


File 


CZRCD1.08J;1 
CZRCD2.08J;1 
ZRCDS :1 
AZLIB. OLB: 1 
CZRCD1.08J;1 


CZRCD3.08J;1 


CZRCD2.08J;1 
CZRCD3.08J;1 


CZ2RCD4.0B8J;1 


40-R 


DUM. IE 004450-R 

DUM.UC 004376-R 

arty 004526-R 
004344-R 


DUR 066270-R 
DSPCNT 002122-R 
E 400-R 


SEQ 0030 








Memory allocation map TKS M40.02 


Page 2 
1=JUL-83 08:48 


CZRCD.EXE 
CZRCD1 


EBH.40 007060-R LSCCP 002106-R 


Fong +: 066254-R 
ERRBLK 002134-R LSCLEA 014314-R 
ERRMSG 002132-R L$CcO 2032- 
ERRNBR 0021 ae 
ERRTYP pociss-r 


ETIME 


EVL 649 a 
EX-88 007654-R 
EX.BC 010012-R 
EX.B 10070-R 


=DOQooocoocoocooooo 


mmmmmnmn 


S 
$ 
ti 


SB088 
8 


BObe 
SSsss 
Iu Nm 


2 76-R 
EMS.01 020746-R 
EMS.10 021010-R 
EMS.12 021056-R IER 020000 
EMS.1 20-R IIP.FL 066256-R 
IN. 10D 016236-R LSLADP 

ODQ  066206-R oe aiaeree 
LOAD 002100 
LUN O0D074-R 
LSMREV 5 34 ab 


NOu lw 
Siotatavtae 
— oe ob eb ed 
wo— 

? 


002112-R 


ENTRY. 066252-R LSPRT 
SREPP 002062-R 


LSAUT 002070-R 
ENV.US 062302-R LSAUTO 014104-R 


*e* Task builder statistics: 


Total work file references: 73128. 

Work file reads: 0. 

Work file writes: 

Size of core pool: 5486. words (21. pages) 
Size of work file: 3840. words (15. pages) 
Elapsed time:00:00:23 


SREV 010-R 
LSner O19236-R 


WLE 010462-R 

Lstest 5 3B a 
ML 002014 

1 h 


SG.06 003730-R 
mse. 07 003772-R 
MSG.08 004044-R 


NEX 066356-R 
NEX.TR 015010-R 
NULL  003464-R 


PRI04 000200 
PRIOS 000240 
PRI06 000300 


PUT 
PUT. 052-R 
PUT.RE 015746-R 
Q10 b663) O-R 
RCINTO 037350-R 
RCINT1 037 


STEP 066 
ST.COD 066 
SwM1 003 70-8 


UAM  —_- 000200 
UPD.10 016634-R 
T PS ow 


SSAVE4 042372-R 
SSAVES 042412-R 


SEQ 0031 





SEQ 0032 
cZRCO CREATED BY TKB ON 11-JUL-83 AT 08:48 PAGE 1 


GLOBAL CROSS REFERENCE CREF 01 
VALUE REFERENCES... 
# CZRCD2 


CZRCD3 
CZRCD2 C2RCD3 


CZRCD3 


# CZRCD3 
CZRCD 


CZRCDS 


CZRCD3 
C2RCD2 CZRCDS 


CZRCD2 CZRCD3 
CZRCD3 


CZRCD3 
CZRCDS 


066360-R CZRCD2 CZRCD3 





SEQ 0033 
CZRCD CREATED BY TKB ON 11=JUL=83 AT 08:48 PAGE 2 


CROSS REFERENCE CREF vO01 
VALUE REFERENCES... 

042776-R # CZRCD1 CZRCD2 CZRCD3 

043066-R 


CZRCD2 CZRCD3 


CZRCD2 CZRCD3 
CZRCDS 


seeeee 


C2RCD2 CZRCD3 
CZRCD2 


oO 


SoD 
NISsaNeuRwves Sh 


D 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 


m Ha paadad 
Soe 


004740-R # CZRCD1 








CZRCD 


WUE ton 
M—ODONOUSwW 


Seesssseues 


CREATED BY TKB ON 11-JUL-83 AT 08:48 PAGE 3 
CROSS REFERENCE CREF 
VALUE REFERENCES... 
# CZRCD1 


CZRCD2 
CZRCD3 


CZRCD3 
CZRCD3 
CZRCD2 C2RCDS 


R 
010372-R CZRCD2 

# CZRCD3 
007654-R 


CZRCD3 


010306-R 
007720-R # CZRCD1 CZRCD2 


v01 








CZRCD 


REREREERES 
OWONAOULSWN— 


01 

01 

PS 01 

P$2 01 

GP$20 01 
01 
01 
01 
01 
01 
01 


soFes 


CREATED BY TKB ON 11-JUL-83 AT 08:48 PAGE 4 
CROSS REFERENCE CREF O01 
VALUE REFERENCES... 


34-R # CZRCD1 CZRCD 
CZRCD3 


CZRCD3 


cZRCD3 


CZRCD3 


CZRCD3 
CZRCD2 # CZRCD3 
C2RCD2 CZRCD3 


CZRCD2 


CZRCD2 

CZRCD2 # CZRCD3 

CZRCD2 # CZRCD3 
# CZRCD1 CZRCD2 # CZRCDS 


SEQ 0035 





CZRCD 
GLOBAL 


CREATED BY TKB 
CROSS REFERENCE 


VALUE 


066256-R 
016236-R 


010712-R 


ON 11-JUL-83 AT 08:48 


REFERENCES... 


# CZRCD1 
# CZRCD2 


# CZRCC2 


cence 
CZRCD 


# CZRCD2 


# CZRCD2 
# CZRCD2 
# CZRCD2 


# CZRCD2 


CZRCD2 


# CZRCD2 
# CZRCD2 


# CZRCD2 
CZRCD3 


# CZRCD2 
# CZRCD4 
CZRCD2 


CZRCD3 


# CZRCDS 


CZRCD3 


CZRCDS 


PAGE 5 
CREF 


v01 


SEQ 0036 


SEQ 0037 
CZRCD CREATED BY TKB ON 11=JUL=83 AT 08:48 PAGE 6 


CROSS REFERENCE CREF 01 
VALUE REFERENCES... 
# CZRCD1 


# CZRCD2 
# CZRCD2 


CZRCD2 CZRCD3 


CZRCDS 


CZRCD3 
CZRCDS 


CZRCD2 CZRCD3 


CZ2RCD3 


CZRCD3 
# CZRCD3 


CZRCD2 # CZRCD 
CZRCD1 # CZRCD2 # CZRCDS 
CZRCD1 # CZRCD2 # CZRCDS 





CZRCD 
GLOBAL 


CREATED BY TKB 
CROSS REFERENCE 
REFERENCES... 
# CZRCD1 CZRCD2 # CZRCD3 
CZRCD1 


VALUE 


03 
037406-R 


“R 
017170-R 
015162-R 


ON 11=JUL-83 AT 08:48 


# CZRCD2 # CZRCDS 


CZRCD3 
CZRCD3 
CZRCD3 
CZRCD2 


CZRCD2 


CZRCDS 
CZRCD3 


C2RCD2 


# CZRCD2 # CZRCDS 
CZRCDS 


CZRCDS 


CZRCD3 


CZRCD3 


CZRCD3 
CZRCD3 


CZRCD3 
CZRCD3 
CZRCD3 


SEQ 0038 


SEQ 0039 


cZRCD CREATED BY TKB ON 11=JUL=83 AT 08:48 PAGE 8 
GLOBAL CROSS REFERENCE CREF 01 
VALUE REFERENCES... 
SO eon # CZRCD1 CZRCD2 


CZRCD3 
CZRCD2 CZRCD3 


CZRCD4 
CZRCD3 
CZRCD3 


# CZRCD3 


CZRCD3 


# BI6SAV cZRCD2_—sy:« CZRCD3 
CZRCD CZRCDS 
B16SAV CZRCD CZRCD3 
SSAVES 042412-R BI6MUL # BI6SAV CZRCD2 CZRCD3 





eee e ee ee eee REE ERE AAA EAE EAA A AERA ERA ERAEAERA RARE EE EERERERERARERRE 
i] 


: 
; 
LITERAL 


‘earner 
' 


4 
‘eeteee 
1 


' 
\eekeee 
' 


‘ 
‘exente 
: 
' 
‘eseett 
' 


HARDWARE LIMITS 

oe CTLR 
X_UNITS 

MAX —TRACK 


MAX_SEC 
SEC_PER_TRK 
BLK_SIZE 


LITERALS 


SRRRRER eee eee REAR AAEEAEAAAAAAA REAR EAE AE EEAEEEAERERERERAEEEERE EER ERERERARRERES 
' 


AND PARAMETERS 


U/Q PORT RING SIZES 


CR_LOG 

RR_LOG 

CRING LEN 
RRING_LEN 

TABLE AND OTHER 


HWPT_LEN 


cst_Cen 
TALCY LEN 
RP_LEN 


OFFSETS 
OF _UN 


3. 


4, 
MAX_CTLR * 4, 
64T 


1° CR LOG, 
1 * RRILOG, 


STRUCTURE SIZES 


24 
a. 
CR 


iNG 


MAX_ ert “ RRING_LEN, 
MSG_LEN + 4, 


NORA BIN —WwOBwWw 
—“S-sefe0 ov Ss 
s —Ow: Se 2 

2 


3, 


ING 
R 
yy. 


CTLR * RRING_LEN, 


are * 2) * MAX_C 


SW P-TABLE FLAGS (SWP_FLAGS) 


SWF _SEL 


B 4 


® 
® 
® 


! MAXIMUM eat OF ft fs'to test ALLOWED 


: R 
! NUMBER OF BYTES PER SECTOR 


! LOG2 LENGTH OF COMMAND RING 


! LOG2 LENGTH OF RESPONSE RING 
! COMMAND RING LENGTH 
! RESPONSE RING LENGTH 


TLR, 
* 2) + RRING, LEN) * 
! RUMBER 


! SIZE (WORDS) Pd Hid P-TABLE 


4, 
(RRING_LEN * 2) + (CRING LEN * 2) + ! SIZE (WORDS) OF U/Q yf COMM AREA FOR ONE CTLR 


! SIZE (WORDS) “or "A CONTROLLER STATUS TAB 
S76 (WORDS) OF ° UNIT'S at TABLE 
SIZE (WORDS) OF A RETURN PACKET 
SIZE (BYTES) OF A CONTROLLER'S RETPKT SAVE AREA 
ER R ie a N 1/0 DONE QU D 
ee pode oy GE (TEXT PORTION) 


THE RANDOM NUMBER TABLE 
F AN 1/0 BUFFER DESCRIPTOR 
F DM cons Ty oot ONE CONTROLLER 
! MAX SIZE (WORDS) OF ee DATA PATTERN 
; vy F- “1 1th 1/0 BUFFERS (SIZE OF BUFF_DESC AND BUFF _OWN) 
ay OF MSCP ENVELOPES IN POOL 
of ENTRIES IN A CONTROLLER'S OUTSTANDING CMD LIST 
i NUMBER OF PRE-DEFINED DATA PATTERNS 


! WORD OFFSET FROM START OF CST TO FIRST UNIT 


SUPPRESS PRINTING ERROR LOG MESSAGES 


' RUN DM EXERCISER INSTEAD OF MULTI-DRIVE SUBTEST 


RANDOM SE 


: EK MODE 
! READ=COMPARES AT CONTROLLER 
! WRITE ONLY 





' 
lereene 
' 


' 
‘eegeee 
! 


‘ 
leeeree 
] 


' 
'eeeeee 
' 


' 
'exenee 
' 


' 
leeenee 
' 


'eennee 
' 


‘eaeeete 
' 





C 4 


! WRITE=COMPARES AT CONTROLLER 
! WRITE-COMPARES AT HOST 

! USER-DEFINED DATA PATTERN 

! HOST WRITE COMPARES (BIT POSITION) 


ENTRY_REASON VALUES (HOW CURRENT PASS WAS INVOKED) 


1 START 

i RESTART 

i CONTINUE 
PWR_FAIL i POWER FAIL 
NEW_PASS i NEW PASS 


DROP UNIT REASONS (LOADED INTO DUR VECTOR) 
DU_USER 0, 


START 
RESTART 
CONT 


COMMAND 
FIGURATION ERROR 


a 
! HARD OR LIMIT REAC 
! UNRECOVERABLE DEVICE “ERROR 


DU_HERR 

DU~FATAL 

TIMEOUT VALUES (IN SECONDS) 

TO_ INIT ! INIT SUBTEST COMMANDS 
DUP S 


i 1/0 TRANSFER COMMANDS 
i ONE FPT PASS (DM EXERCISER SUBTEST) 


MISCELLANEOUS LITERALS 

INI_ATT 2. ! NUMBER OF HARD INIT ATTEMPTS BEFORE FAILURE IS ASSUMED 
WR_RING ((20" at My 8 (CR_LOG * 3) OR (RR_LOG)), ! USED IN HARD INIT SEQUEN 
Q10_PER_CTLR CRING_ * 2, ! MAXIMUM NOMBER OF OUTSTANDING Q10S PER CONTROLLER 
MSCP ENVELOPE DESCRIPTOR 

ED_OWN = %0°100000°, ! OWNERSHIP BIT 


eames ID VALUES (MSCP_ENV, RETPKT) 
(SERVE AS SOURCES AND DESTINATIONS OF MSCP MESSAGES) 


! DISK MSCP 


! TAPE MSCP 
! PIAGNOSTIC AND YUP STIES PROTOCOL 
! EXERCISER “DRIVER 


. ae (FROM PORT) 
! DATAGRAM (FROM PORT 

! CREDIT NOTIFICATION (FROM PORT) 
! FATAL DEVICE ERROR (FROM “DRIVER ») 
! COMMAND TIMEOUT (FROM ‘DRIVER’ 


MT_ “FV IMebUT 
MSCP COMMAND PACKET OPCODES 


oP_SCC 20°46". ! SET CONTROLLER CHARACTERISTICS COMMAND 
OP_ONL z0°11", ! ONLINE COMMAND 


lereree 
' 


J 
‘eueeee 
] 


' 
‘eugene 
' 


' 
'eeenee 
' 


' 
'eeaeee 
: 
‘ 


‘eeeeee 
' 


' 
leeeren 
‘ 


' 
‘eereee 


! ACCESS COMMAND 
! READ COMMAND 


! OPCODE MASK 
! ENDCODE DESIGNATOR 
DUP COMMANC OPCODES 


OP_ESP 20°2", ! EXECUTE SUPPLIED PROGRAM 
OP_SND %0°4", ! SEND DATA 


MSCP COMMAND MODIFIERS 


MD_EXP %0°100000", ! EXPRESS REQUEST 
MD_ CMP %0°40000°, ! COMPARE 


MSCP ERROR LOG MESSAGES = FORMAT FIELD CODES 

FM_CNT 0, ! CONTROLLER ERROR 

FM_ 1, ! HOST MEMORY ACCESS ERROR 
FM_SDE 4, ! SMALL DISK ERROR 
CONTROLLER FLAGS (IN SET CONTROLLER CHARACTERISTICS COMMAND) 


CF _MSC = %0°100', ! ENABLE MISCELLANEOUS ERROR LOG MESSAGES 
CF_THS = %0°20°, ! ENABLE THIS HOST'S ERROR LOG MESSAGES 


UNIT FLAGS (IN ONLINE RESPONSE) 
UF __WPH = %0°20000°, ! WRITE PROTECT (HARDWARE) 
STATUS / EVENT CODE DEFINITIONS 


! SUCCESS 

! UNIT OFFLINE 

! DATA ERROR 
END MESSAGE FLAGS 
EF _BBR %0°200°, ! BAD BLOCK REPORTED 
RC25 LITERALS 


RCIP 0, ! IP REGISTER 
RCSA i. ! SA REGISTER 


REGISTER BIT DEFINITIONS 
z0° pes : are 1 STATUS BIT 


: 4 
0°10 ° : ERROR INDICATO 
%0°000200°, ! INTERRUPT ENABLE DURING INITIALIZATION 
%0°000001", ! GO BIT TO START FIRMWARE 


INITIALIZATION SEQUENCE READ MASKS 


SEQ 0042 





! STEP 1 READ BITS 


v 4 


ieeeens MEMORY MANAGEMENT (KT=11) REGISTER LOCATIONS 


' 
'eeeene 
' 


‘eetnne 
' 


S1_MASK = 40°17 
S2_MASK = 10'17e377", 
S3_MASK = %0'174377' 
S4"MASK = %0°174000'. 
KTPDRO = %0'172300' 
KTPDR1 = %0°172302", 
KTPDR2 = %0°172304', 
KTPDR3 = %0'172306', 
KTPDR4 = %0°172310', 
KTPDRS = %0'172312" 
KTPDR6 = %0°172314' 
KTPDR7 = %0°172316' 
KTPARO = %0°172340' 
KTPAR1 = %0'172342' 
KTPAR2 = %0'172344', 
KTPAR3 = %0°172346' 
KTPAR4 = %0°172350', 
KTPARS = %0'172352", 
KTPAR6 = %0°172354', 
KTPAR7 = %0'172356', 
MMRO = %0'177572', 
MMR 3 = %0'172516', 
LITERALS FOR READABILITY 

YES = 1, 

NO = 0, 

TRUE = 1, 

FALSE = 0, 

SUCCESS = 1, 

FAILURE = 0, 

FOUND = 1, 

NOT_F = 0, 

PRESENT = 1, 

NOT PRESENT = 0, 
UNPROTECTE = 1, 
PROTECTED = 0, 

ONL INE = 1, 

OFFLINE = 0, 

ALL_ONES = %0°177777', 
CLOCK FLAGS FOR CLK_TYPE 
NO_CLOCK = 0 

L_tLOCK = -i, 

P- CLOCK = 1; 


! PAGE DESCRIPTOR REGISTERS 


PAGE ADDRESS REGISTERS 


MEMORY MANAGEMENT REGISTER 0 
MEMORY MANAGEMENT REGISTER 3 


! PLATTER IS ee IN_CONTROLLER 


: PRESENT i. CONTROLLER 
! PLATTER HAS UNPROTECTED CUSTOMER LBN'S 
! PLATTER HAS PROTECTED CUSTOMER LBN'S 


v 
_ 
P 
~ 
“4 
mm 
xz 
om 
nn 
2 
So 
—_ 


SEQ 0043 





F 4 


SRR e eee e eee eee AeA AAAAAAAAAEREAEA AEA ATAAAARARERAAAAAAAAE EAE AERA EERARE REE 
' ® 
} FIELDS * 
‘ » 
See eR eee REA AAAEAAEAREREERARERAAAEARERERAEAERAARERAAEREREREE REERERAREEAAARAERAAAEE 
i] 


FIELD 

leeweee HARDWARE P-TADLE FIELDS 

HuP_FIELDS = 

! IP ADDRESS 


. i VECTOR AD 


6 
6 DRESS 
! BUS REQUEST LEVEL 


6 
6 
i 


: PL 
: PROTECT CUSTOMER DATA BIT 


eo 


' 
lensens U/Q PORT COMMUNICATION AREA HEADER FIELDS 
COM_FIELDS | = 

SET 


ADAP_CH ! ADAPTER ae NUMBER FOR PURGES 
CMD_INT ! COMMAND RING INTERRUPT 
RSe INT ! RESPONSE RING INTERRUPT 


leueese CUNTROLLER STATUS TABLE (CST) FIELDS 
C_FIELDS = 
S 


IP ADDRESS 

VECTOR ADDRESS 

CONTROLLER STATUS 

BUS REQUEST LEVEL 

NUMBER OF TESTABLE UNITS UNDER THIS CONTROLLER 


T PLATTER (ALL FIELDS) 

T PLATTER +a teey (MSCP UNIT NO.) 

T PLATTER UNIT NUMBER (DRS UNIT NO.) 
T PLATTER STATUS 7h 

T PLATTER PRESENT BIT 

T PLATTER PROTECT CUSTOMER DATA BIT 


EFERENCED DIRECTLY, BUT RATHER WITH OFFSETS 
ED HERE ONLY FOR DOCUMENTATION PURPOSES. 


! 2ND PLATTER (ALL FIELDS) 

! 2ND PLATTER ADDRESS (MSCP UNIT NO.) 

! 2ND PLATTER UNIT NUMBER (DRS UNIT NO.) 
! 2ND PLATTER eee 74) 

! 2ND PLATTER PRESENT BIT 

! 2ND PLATTER PROTECT CUSTOMER DATA BIT 


! 3RD PLATTER (ALL FIELDS) 
! 3RD PLATTER ADDRESS (MSCP UNIT NO.) 


naunon 
am SAMA Senne 
—-—- WWW Porno 


oo ese eee 
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ES 


nnunnnun 
-—=—=-000 wo-oo 
Cmte eae tata t ee 

oo www 
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nnonnn 
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wun SLRS 
ees © 8 8&8 & 
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es. 
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G 4 
; PLATTER UNIT 3 eit (DRS UNIT NO.) 


Sue 


e*s 


KD PLATTER PRESENT BIT 
RD PLATTER PROTECT CUSTOMER DATA BIT 


' 4TH PLATTER (ALL FIELDS) 
! 4TH PLATTER ADDRESS as ae UNIT 
ATTER UNIT ate 


eee 
—_—— 00 
ooouw 
Lo 
eee 


emer eeea Mere 
i) 
s 


NO.) 
(DRS UNIT NO.) 


COBAAA Nun 
ses © 8 &© & 
——— WOO 


i 4TH PLATTER PRESENT BIT 
i 4TH PLATTER PROTECT CUSTOMER DATA BIT 


Cooowwo 
sisi © 
s* ¢ 


leeeese MSCP coe FIELDS 

NOTE: THE FIRST TWO WORDS OF “¥ MSCP ENVELOPE (ITS BASE 
ADDRESS) CONTAIN THE ENVELOPE'S OWN DESCRIPTOR, RATHER THAN THE 
MESSAGE BODY (TEXT + 0). THE MESSAGE BODY BEGINS AT WORD 4. 


i 

i 

i 

E_ FIELDS = 
SET 


' 
: HEADER FIELDS 


ENVELOPE DESCRIPTOR (LO ORDER) 

ENVELOPE DESCRIPTOR (HI ORDER = ALL FIELDS) 
ENVELOPE DESCRIPTOR (HI ORDER UNIBUS BITS) 
ENVELOPE DESCRIPTOR oy = Q-BUS BITS) 
ENVELOPE DESCRIPTOR FLAG BIT 

ENVELOPi oo OWNERSHIP BIT 

MESSAGE LENGTH 


CREDITS 
MESSAGE TYPE 
CONNECTION ID 


oLroo——NVMNooo 
eee © We 8 8 8 


=C 
=€ 
=C 
=C 
=C 
=C 
=C 
=C 
=C 
=C 


ET AND END PACKET FILEDS 
! COMMAND REF NUMBER (LO ORDER) 
! COMMAND REF NUMBER (HI ORDER) 
! PLATTER ADDRESS (MSCP UNIT NUMBER) 
! OPCODE AND ENDCODE 
COMMAND MODIFIERS 
READ, WRITE, AND ACCESS COMMAND FIELDS (FOR COMMAND AND END PACKETS) 


0, ! BYTE — (LO ORDER) 
0, ! BYTE COUNT (HI ORDER) 
0, ; 1” BUFFER DESCRIPTOR 


nnn 
Anne <4 
ooooeco VY 
ss 8: 8 & 


Wty lt 
. 


, i LOGICAL BLOCK NUMBER (LO ORDER) 
i LOGICAL BLOCK NUMBER (HI ORDER) 
SET CONTROLLER CHARACTERISTICS COMMAND FIELDS 

C_FLAGS = (11, 0, 16, 0), ! CONTROLLER FLAGS 


od td td 

WONAUSWN—O 

ees ees eeees 
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COoooo°oeooo 

=) wu 
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ONLINE COMMAND FIELDS 
DDPAR = (18, 0, 
DUP COMMAND FIELDS 


So 
ws 
8 


! DEVICE-DEPENDENT PARAMETERS 


BYTE COUNT (LO ORDER) 
BYTE COUNT (HI ORDER) 
BUFFER DESCRIPTOR 


bea hea hae | 
WN -0o--0 


fun-owv" 


OVERLAY BUFFER DESCRIPTOR 


~ 
nnnnnnnnnnnnne 
OOM MMMM Ma aM eee 
ees 8ssessees 8s 88 & & 
SOOCoOooOoooooooo 
e*eese 8eseeses8ts 8&8 && & 
— od oe = = = 
AAADAAAAAAAAAAO 
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[ar] | ee) |e ee ee 


w 


MESSAGE FIELDS 

! FORMAT 

! EVENT CODE 
SUB-COD 


' HOST MEMORY ADDRESS (LO ORDER) 
! HOST MEMORY ADDRESS (HI ORDER) 


ieeeeee RETURN PACKET (RETPKT) FIELDS 
i (SIMILAR, BUT NOT IDENTICAL, TO MSCP ENVELOPE FIELDS) 


' 
RP_FIELDS = 
SET 


' 
ALL RETURN PACKETS FROM DISK MSCP 
; 16, 01, 

0 


af 
05 


MESSAGE LENGTH 
CONTROLLER NUMBER (CREDITS OVERWRITTEN) 
roeeet TYPE 


ONNECTION ID 

COMMAND REFERENCE NUMBER (LO ORDER) 
COMMAND REFERENCE NUMBER (HI ORDER) 
PLATTER ADDRESS (MSCP UNIT NUMBER) 
COMMAND MODIFIERS 

END COD 


FLAGS 

STATUS AND SUB-CODE 
STATUS CODE 
SUB-CODE 


. 
> 


MOOCDBOOCOOMaLSoOo 


e*e 8s 8s 88 8&8 8&8 & 8 8 


rs ttl 
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So 
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—— 0000 = COL 
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Pe oe ek oe Oe ee eS AS a DE 


es*ese 88 88 8&8 & 8&8 & 


ques 
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READ, WRITE, AND ACCESS COMMAND RETURN PACKETS 


BCNT_LO (8, 0, 16, 02. ! BYTE COUNT (LO ORDER) 
BCNT-HI [9° 0. 16, 0] i BYTE COUNT (HI ORDER) 
BUFF~0 C16, 6, 16, 03, i 1/0 BUFFER DESCRIPTOR 








BUFF _1 = (11, 0. 16, 0), 
BUFF -2 = le. * 16, 01, 
BUFF "3 = (13. 0. 16. 0). 
BUFF =~4 = (14. 0; 16. 01. 
BUFF 75 = (15. 0. 16. 0]. 
BBLK"LO = 1g. 0. 16, 0). 

LK-HI = (17, 0. 16, 0], 
CBCNT_LO = (18. 0. 16. 0J. 
CBCNT “HI = £19; 0, 16. 0). 
LBN_LO = £20; 0. 16. 0]. 
LBN-HI = (21, 0; 16. 03. 

UNIT ONLINE RETURN PACKET 
= (9, 0, 16, 0) 
Ueto’ ro = (26, 6, 16, 03. 
USIZ"H HI = (21. 0. 16, 03 


£ 
leusens STATISTICS TABLE (TALLY) FIELDS 


T_FIELDS = 
SE 


T 

READ_LO = (0, 0, 16, 0). 
READ_HI = [1, 0. 16, 01, 
WRIT-LO = (2, 0. 16, 0). 
WRIT~HI = [35 0. 16, 0). 
SEEK~LO = (4, 0. 16, 0], 
SEEK "HI = £5, 0. 16, 03. 
BR_L = (6. 0. 16. 0). 
BR-HI = (7, 0. 16, 01. 
MB~READ = (8° 0. 16, 03, 
Bw"LO = £9. 0. 16, 03 
BwW_HI = £10, 6, 16, 03, 
MB_WRIT = (11, 0. 16. 0], 
ER“HRD = (12, 0. 16, 0J. 
ER“LOG = (13, 0; 16. 03. 
ER "SFT = (14, 0. 16, 0). 
Ect_1 = £15. 0; 16, 01. 
ECC~2 = £16, 0, 16, 0J, 
ECC~3 = £17, 0. 16. 02, 
ECC_4 = C18, 0, 16, 0J, 
ECC~5 = £19, 0, 16, 0J, 
ECC~6 = £20; 0. 16. 0J. 
ECC~7 = (21, 0. 16, 01. 
ECC~8 = [22° 0. 16. 0. 
ECC-ONLY = (23. 0. 16, 0] 


FIRST BAD BLOCK (LO ORDER) 
FIRST chon 1 knee K (HI ORDER) 

BYTE C FROM CMD PACKET (LO ORDER) 
BYTE COUNT FROM CMD PACKET (HI Meese 
LOGICAL BLOCK NUMBER (LO ORDER) 
LOGICAL BLOCK NUMBER (HI ORDER) 


UNIT FLAG 
UNIT SIZE (LO ORDER) 
UNIT SIZE (HI ORDER) 


NUMBER OF READS (LO ORDER) 


NUMBER OF WRITES (HI ORDER) 

NUMBER OF DM EXERCISER SEEKS (LO ORDER) 
NUMBER OF DM EXERCISER SEEKS (HI ORDER) 
NUMBER OF BYTES READ (LO ORDER 1000) 

OF ovres READ (HI ORDER 1000) 


SR 
NUMBER OF BYTES WRITTEN (LO ORDER 1000) 
R_OF URITTEN (HI ORDER 1000) 


NUMBER 
ECC-FIELD-ONLY ERRORS 


t 
leeeeee DRIVER CONTROLLER TABLE (DCT) FIELDS 
DC_FIELDS = 

SET 


WORDO = (0, 0, 16, 0). ! ALL FIELDS IN WORD 0 

CRING_CNT = £0, 0. 8, 0] i NUMBER OF SLOTS IN CRING NOT YET RETURNED TO HOST 
1G_INT = £0, 14, i, 04. i IGNORE INTERRUPT BIT 

STAT = £0, 15; 1° 07; i ONLINE / OFFLINE STATUS 

SA_SAVE = (1, 0, 16, 0). i SA REGISTER SAVE WORD 





] 
‘ees DM EXERCISER COMMUNICATION AREA (DM_COMM) 


DMC_FIELDS = 
SET 


FPT_ACC 
HOST_ACC 


P1_SEEKS 
P1"READS 
P1 =WRITES 
P1_ SOFT 
P1_HARD 


P2_SEEKS 


P3_SEEKS 
P3_READS 
P3_ ei 
P3"SOFT 
P3_HARD 


P4_SEEKS 
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FIXED ADDRESSES OF START AND 
END OF EACH RING 


v 
ADDR OF NEXT RRING SLOT TO BE POLLED 
ADDR OF NEXT CRING SLOT TO BE POLLED 


ADDR OF NEXT AVAIL CRING SLOT 


FIELDS 


! FRONT PANEL TEST ACCESS WORD 
! HOST ACCESS WORD 


ERENCED BY ADDRESS POINTERS. THE FIELDS 
NTATION PURPOSES. 


PLATTER ADDRESSES (UNIT PLUG 
NUMBERS) OF 


DM-EXERCISED 


ee a 


1ST PLATTER = NO. 
2ND PLATTER = NO. 
2ND PLATTER = NO. 
2ND PLATTER = NO. 
3RD PLATTER = NO. 


3RD PLATTER = NO. 


4TH PLATTER = NO. 
4TH PLATTER = NO. 


& 
— 
= 
v 
= 
> 
~ 
~ 
m 
z= 
eeevee 


4TH PLATTER = NO. 


DISKS 10 BE 


WRITES 
SOFT ERRORS 
HARD ERRORS 
SEEKS 
READS 
WRITES 
SOFT ERRORS 
HARD ERRORS 


WRITE 
SOFT ERRORS 


WRITES 
SOFT ERRORS 
HARD ERRORS 


SEQ 0048 








leveues BLOCK SEQUENCE TABLE (BST) FIELDS 
B_FIELDS = 
SET 


SECTOR Oj, ' SECTOR 
TRACK 0J ! TRACK 


TES, 
' 
lennese 1/0 BUFFER DESCRIPTOR FIELDS (BUFF_DESC) 
BD_FIELDS = 

SET 


BD_LO OJ, ! LOW-ORDER 16 BITS 
BD AH 16, 0) ! HIGH=ORDER U/Q BITS 


leaeese RC25 REGISTER FIELDS 
RC_REG = 


Teett = (0, 16, 0] ! DEFINE ALL BITS 


L 4 


RRR e Ree e eee eee EAA AEEEEERAER AREA AA AAARERE RARER AAA REEEEEEEEEEERERERERER 
' ® 
; MACROS 4 
! * 
SRRRR RARER ERE AERAAAAAAEAAAAAAAAAEEEREAARERAAARERERERERAEAAA AEE E AAR EEERERERAERERE 
] 


MACRO 
leaeens ALL FIELDS OF A WORD 
ALLBIT = 0, 16, 0%, ! ALL FIELDS 
leneess CST FIELDS (WORDS 3 = 6) 
; ' PLATTER ADDRESS (MSCP UNIT NO.) 
i PLATTER UNIT NUMBER (DRS UNIT NO.) 
| PLATTER STATUS BIT 


! PLATTER PRESENT BIT 
! PLATTER PROTECTION BIT 


lesenee BIT TEST 


BIT TST (ADDR, EXPECTED) 
“CIF (ADDR AND EXPECTED) EQLU EXPECTED 


‘ 
‘eens RC25 WRITE 


WRT_RC25 (0, FIELDNAM, IMAGE) = 
BEGIN 
LOCAL 


RC_REG; 
RC_REG <%F IELDEXPAND (F IELDNAM)> = IMAGE; 
(.RC25_ADDR + (ZUPVAL * 0)) = .RC _REG; 


SEQ 0050 





mM 4 


SEQ 0051 
eee eeee eee eee eee eee eee eAAAAEAAAAAAAAAAEAAAEAAREAARERREREREA EERE 
' * 
STRUCTURES * 
& 


eRe eRe eR AAA AE EERE RARER ERE E EEE RERAE EERE RARE AE EEEEEEERERERERR 
' 


i 
‘ee RC25 ACCESS ALGGRITHM 


STRUCTURE 
RC25 CO, P, S, EJ] = 
BEGIN 


LOCAL 
RC_REG; 
eS = .(RC25 + ZUPVAL * 0) <0, %BPVAL, O>; 


<P, S, E>; 


N 4 


SEQ 0052 
CZRCD1 11-Jul-17 242: VAX=-11 Bliss-16 V3=555 Pa 
8-Jul-1 DUA2: CDOUCETTE .CZRCDICZRCD1.SRC;3 (1) 


MODULE CZRCD1 ( 
Toit e Ri a RC25 DISK EXERCISER® 


en MODE (ABSOLUTE) 
BEGIN 
ZSBTTL ‘PROGRAM HEADER’ 


LIBRARY *CZRCDL; ! RC25 EXERCISER GLOBAL LIBRARY 
REQUIRE “BLSMAC.REQ*; ! DIAGNOSTIC SUPERVISOR LIBRARY 


LITERAL 
DSSNBR_OF_TESTS = 1; ! NUMBER OF TESTS IN THIS DIAGNOSTIC 


EQUALS; 
POINTER (ALL); 


'¢ 

: THE PROGRAM HEADER IS THE INTERFACE ge ee THE DIAGNOSTIC PROGRAM 

; 4 THE ARGUMENTS FOR THE “‘HEADER’’ MACRO ARE: PROGRAM 
: R 4 P. LONGEST TEST TIME, TYPE (WHERE 0 = SEQUENTIAL 

: DIAGNOST CISER), AND, OPTIONALLY, THE PROCESSOR PRIORITY TO 
: BE SET WHEN STARTING THE DIAGNOSTIC. 


HEADER (ZASCII® CZRCD", ZASCII'A’, ZASCII'O*, 655355, 1, PRIOO); 


'+ 

: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. IT 

; IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. THE LITERAL 

: “DSSNBR_OF _TESTS*’ REPRESENTS THE NUMBER OF TESTS (1) IN THIS PROGRAM. 


DISPATCH (DS$NBR_OF_TESTS); 





Ck ves Tob oL 

1610 RP_USE : VECTOR CRP_CNT, BYTE, SIGNED] 

1611! RETURN N PACKET REOOL ALLOCATION TABLE 

1612 RP_INDX : WORD, ' CURRENT RETURN PACKET INDEX 
1613 RP"ADDR : REF BLOCK CRP_LEN, WORD] FIELD (RP_FIELDS), 

1614! CURRENT RETURN PACKET ADDRES 

1615 

1616 


Ss 
BUFF_DESC : BLOCKVECTOR CMAX_BUF_CNT, DESC_LEN, WORD) FIELD (BD_FIELDS), 
: TABLE OF I/O BUFFER DESCRIPTORS 


SEQ es 
CZRCD1 CZRCDAO RC25S Ate EXERCISER 11-Jul-1983 08: 42:25 VAX-11 Bliss-16 V3-555 3 
v01.0 GLOBAL DATA SECTION B-Jul-1983 17:04:44  _DUA2:CDOUCETTE. C2RCDICZRCDI. SRC;3 (33° 
3 1360 ZSBTTL "GLOBAL DATA SECTION’ 
: 1562 !¢ 
3 1368 THE GLOBAL DATA SECTION CONTAINS ALL DYNAMICALLY-MODIFIED DATA. 
: 1565 
; 1366 PSECT GLOBAL = 3FFF$ (READ, NOWRITE, EXECUTE, LOCAL, CONCATENATE); 
: 1568 GLOBAL 
; 1569 PATCH : VECTOR (100, WORD), ! PATCH AREA 
5 1570 CPT : VECTOR CMAX_UNITS, BYTE), 
3 1571! CURRENT PASS TESTING (YES / 02 PER 
: 1572 CST : BLOCKVECTOR CMAX_CTLR, CST_LEN, BokDd FIELD (C_FIELDS), 
: 1573! RUN-TIME CONTROLLER STATUS TABLES 
3 1574 CST_ADDR : REF BLOCK CCST_LEN, WORD) FIELD (C_FIELDS) 
: 1575! OLLER STATUS FABLE ADDRESS OF ‘CURRENT’ CONTROLLER 
3 1576 DCT : BLOCKVECTOR CMAX_CTLR, DCT_LEN, WORD] PTELD ny FIELDS), 
; 1577! DRIVER CONTROLLER TABLES | 
: 1578 DCT_ADDR : REF BLOCK CDCT LEN, WORD) FIELD (DC FIELDS), 
; 1579! DRESS OF "'CURRENT’’ DRIVER CONTROLLER TABLE 
3 1580 RC25_ADDR : REF RC25 FIELD (RC_RE 
3 1581 ! EVICE ADDRESS OF "CURRENT CONTROLLER 
: 1582 IRC25_ADDR : REF RC25 FIELD (RC_REG), 
: 1583! DEVICE ADDRESS OF INTERRUPTING CONTROLLER 
: 1584 DM_COMM : BLOCKVECTOR CMAX_CTLR, DMC_LEN, WORD] FIELD (DMC_FIELDS), 
; 1585 ! DM EXERCISER COMPILUNI CAT ION AREA TLINK TO FRONT P ANEL TEST) 
: 1586 DMC_ADDR : REF BLOCK COMC_LEN, WORD] FIELD (DMC_FIELDS 
: 1587 ! ADD RESS OF CURRENT »CORTROCLER' S DM EXERCISER EEN CATION AREA 
3 1588 RP_SAVE |: VECTOR CMAX_CTLR * RPS_LEN, BYTE, SIGNEDJ, 
3 1589 ! RE TURN PACKET SAVE AREA 
; 1590 RPS_X1 : WORD, ! STARTING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA 
: 1591 RPS=X2 : WORD, i ENDING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA 
: 1592 OUTT_LIST : VECTOR CMAX_CTLR * OUTC_CNT, BYTE, SIGNED 
: 1593! GUTSTANDIN NG COMMAND LIST (CONTATNS MSCP ENVELOPE INDECES) 
: 1594 OUTC_TIMR : VECTOR CMAX_CTLR * OUTC_CNT, i 
: 1595! SuT TSTANDING COMMAND” TIMERS 
: 1596 OCL_X1 : WORD, 
: 1297 ' nt “STARTING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA 
: 1599! ~ ENDING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA 
: 1600 TALLY : VECTOR CMAX_UNITS * TALLY_LEN, WORD] FIELD (T_FIELDS), 
: 1601! STATISTICS TABLES 
: 1602 T_ADDR : REF BL Y_LEN, WORD) FIE'D (T FIELDS) . 
: 1603! ADDRESS OF staristics~ TABLE (TALLY) FOR COR 
: 1604 MSCP_ENV : BL OR CENV_CNT, ENV_LEN, WORD] FIELD tE FIELDS), 
: 1605 ! Bi 4 hy 
: 1606 ENV_USE : VECTOR CENV_CNT, BYTE, SIGNED], 
: 1607 ! MSCP ENVELOPE OPE POOL ALLOCATION TABLE 
: 1608 RETPKT : BLOCKVECTOR CRP_CMT, RP_LEN, WORD] FIZLD (RP_FIELDS), 
: 1609 ! RETURN PACKE 





¢ 5 


SEQ vig 
CZRCD1 CZRCDAO ate? DISK EXERCISER 11-Jul-1983 08: 242:25 VAX-11 Bliss=16 V3-555 
v01.0 GLOBAL DATA SECTION B-Jul=1983 17:04:44 _DUA2: CDOUCETTE .CZRCDICZRCD1.SRC;3 (3). 


VECTOR CMAX_BUF_CNT 
' 170! BUFFER OWNERSHIP (CONTROL 
10D : VECTOR CIODQ_LEN 
' 1/0 BONE. QUEUE = ET RCOLAR QUEUE OF RETPKT INDECES 
10DQ_IN_: WORD, ! 1/0 DONE QUEUE IN POINTER 
10DQ~OUT : WORD, 1/0 DONE QUEUE OUT POINTER 
ENTRY REASON BYTE, HOW CURRENT PASS WAS INVOKED 
T_ FLA YT ONE SECOND TIMING FLAG 
END-OF=PASS FLA 


MEMORY MANAGEMENT FLAG 

Nd Te Al ated IN-PROGRESS FLAG 

NUMBER *'CUR ROLLE 

cuanent PLATTER ADDRESS (MSCP UNIT NUMBER) 
CST OFFSET FOR — T UNIT 

TOTAL ONF IGURED CONTROLLERS 


DROP UNIT REASON 
NUMBER OF OUTSTANDING QIOS PER CONTROLLER 
(IN WORDS) TO 28k 


evi eat 


CUCRERRRRRRR ROSS 


WWW 


t VEC TOR CMAX MAX_UNITS, BYTE), 
Bb CMAX_CTLR, BYTE), 


ed td ed od = = od ot oo ot SS a SS I 


o 
WNC CONOUSWN— 


BELOW 
ny Lg BUFFER 
FFERS 


ER O BU 
TYPE OF CLOCK ON SYSTEM 
= NONE, -1 = L=CLOCK, 1 = P_CLOCK) 
CLOCK HERTZ RATE 


CLOCK CSR_ADDRESS 

CLOCK VECTOR ADDRESS 

ELAPSED TIME = HOURS, 
MINUTES, 
SECONDS, 


TICKS 
CURRENT STATUS CODE 
URRENT SU 


NUM_BUF 
CLK-TYPE : 
CLK_HERTZ : WORD, 
cL : 


ORAS 
Bae 


ek ee ee ek ek ed ad td ed od dd 
SODOONAOUSWN—O0ON 


EFSSSSSIEF 


wv 


: WORD: 


+ 


THE ERRTBL ~ IS REQUIRED WHETHER OR NOT THE PROGRAM USES THE 
“ERROR’’ MACR THE ERRTSL_MACRO EXPANDS INTO 409 WORDS THAT ARE 
USED BY THE RUNTIME SERVICES DURING AN ERROR CALL: ERROR TYPE, 
ERROR NUMBER, ADDRESS OF ERROR MESSAGE AND ADDRESS OF MESSAGE 
ae ouHERE must BE ONLY ONE ERRTBL IN ANY PROGRAM, THIS SECTION 
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ERRTBL; 





SEQ 0055 
CZRCD1 CZRCDAOD_RC25 obit EXERCISER 11-Jul-1983 08:42:25 Ona 1 Bliss-16 V3-555 
v01.0 GLOBAL TEXT SECTION 8-Jul-1983 19: 704:44 : CDOUCETTE .CZRCDICZRCD1.SRC;3 sad 


ZSBTTL ‘GLOBAL TEXT SECTION’ 


'¢ 

: THE GLOBAL TEXT SECTION CONTAINS ALL MESSAGES OUTPUT TO THE OPERATOR 
: DURING THE OPERATION OF THE EXERCISER. THIS INCLUDES HARDWARE AND 

: SOFTWARE DIALOG PROMPTS, ERROR MESSAGES, AND DROP UNIT MESSAGES. 


GLOBAL BIND 
ienenes HARDWARE DIALOG 


HWO1 = UPLIT (ZASCIZ*IP ADDRESS"), 
$3 C1Z*VECTOR*), 
ASCIZ"BR LEVEL"), 
(HASCI "PLATTER ADDRESS (UNIT PLUG)'), 
(ZASCIZ"ALLOW WRITES TO CUSTOMER DATA AREA ON THIS PLATTER’), 
CHASCI2 "#8 WARNING = CUSTOMER DATA AREA MAY BE OVERWRITTEN! ... CONFIRM">, 


jeseens SOFTWARE DIALOG 


SwO1 = UPLIT (ZASCIZ*ERROR LIMIT (0 FOR NO ht »*) 
(ZASCIZ* TRANSFER LIMIT IN MEGABYT 0" FOR NO LIMIT)", 
(ZASCIZ*SUPPRESS PRINTING ERROR (og MESSAGES' 
(ZASC1Z*RUN = ar eS INSTEAD OF MULTI “DRIVE SUP EST"), 


ASC 
toh Me TRACK) 
nr}, Bay? oe RACK’ 
IT (ZA CLE ‘READ-COMPARES PERFORMED AT THE CONTROLLER’), 
T (ZASCIZ*WRITE ON 
GHASCIzZ"WRITE~CONPARES PERFORMED AT ib | CONTROLLER"), 
Z*CHECK ALL WRITES +! HOST BY READING"), 
Z*USER=DEFINED DATA PATTERN’), 
PRE~DEF INED. DATA PATTERN (0 FOR SEQUENTIAL SELECTION)"), 
pr Bry IN DATA PATTERN (16 MAXIMUM)"), 


RN VALUE) 
He REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED PLATTERS.'), 
! ADDED TO COVER DRS BUG (NEXT MESSAGE ALSO PRINTED) 


ieeseee INFORMATION MESSAGES (IF ATTENDED MODE, THEN PRINTF) 


MSG_01 = UPLIT (ZASCIZ"ZAPOWER DELAY = WAITINGZN 
(ZASCIZ"2NZAABOUT TO VERIFY eR  s032A(0) FOR DEVICE %06%A(0) ... °), 
T (ZASCIZ2°ZACOMPLETED.2N'), 
CZASCIZ*INEAINIT SUBTEST STARTIN'), 

(ZASCIZ*ZNZAMULTI-DRIVE SUBTEST STARTZN') 
(ASE 12) 3NEADA EXERCISER S SUBTEST STARTZN'), 
CZASCI7 "AUN T %D2%A. ANSFER LIMIT REACHEDIN') 

MSG_08 = UPLIT (ZASCIZ° TDSxA. BLOCKS TRANSFERRED ON UNIT 2D2%A. tBLATTER %D3%A.)2N"), 


ianeees CONFIGURATION ERROR MESSAGES (IF ATTENDED MODE, THEN PRINTF) 

; CER_01 wut (ZASCIZ' SNEAOUM ICATE ares ADDRESS %D33A. AT IP %06%A(0)"), 
CER_O2 = UPLIT (ZASCIZ*ZNZAALREAD UNITS IP 20 
CER_O3 = UPLIT (ZASCIZ°2ZNZAMORE THAN EDIEA DIFFERENT IP ADDRESSSES'), 


t 
ineeeee DROP UNIT MESSAGES 
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t 
CEASCIZ: ZAUNIT XD2%A. DROPPED = '), 
(ZASCIZ"%AUSER COMMAND 
T (%A SC1Z" ZACONF IGURATION ERROREN'), 
(ZASCIZ'ZAINIT ERRORIN' 
(ZASCIZ"%AHARD ERROR LIMIT REACHEDEN"), 
DUM-UE = UPLIT (Haselz" ZAUNRECOVERABLE ERROR%N') 
ieesees GENERAL ERROR MESSAGES 
: SYSTEM FATAL (ERRSF) 


$_01 = UPLIT (ZASCIZ°TOO MANY UNITS"), 
S_02 = UPLIT (ZASCIZ*NEITHER P NOR L CLOCK WAS FOUND ON THE SYSTEM'), 


DEVICE FATAL (ERRDF) 
ree} REGISTER EXISTENCE TEST FAILED"), 
ASCIZ*VEC TEST F D*) 


SNS NN NNN NNN NNN 
OWONOUEWN $0 OONOULS wry 


eee ee mee ee ce ee ee ee ee ce ce ee ce ce ee ee ee ee ce ce ee ee ed ed ed eed eed eed ed 
. me 
S 
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SCIZ"DUP COMMAND FAIL 
(ZASCIZ°DM EXERCISER TIMEOUT‘), 
HARD (ERRHRD) 
EGH_30 = UPLIT (ZASCIZ°I/O REQUEST FAILED"), 
iesenes BASIC ERROR MESSAGES (PRINTB) 
: SYSTEM FATAL (ERRSF) 
"  EBS_01 = UPLIT (ZASCIZ*%AMORE THAN %D2%A. UNITS SPECIFIEDZN"), 
DEVICE FATAL (ERRDF) 
EBD_10 = UPLIT (ZASCIZ"ZANO RESPONSE AT ADDRESS %06%A(0)2N'), 
GIVEN FOR DEVICE {206EA(Q)3N'), 
RROR ON DEVICE %06%A(0)2N"), 

( ROR CODE RECEIVED IN SA REGISTER OF DEVICE Z06%A(0)2N°), 
T (ZASCIZ°ZAFAILED 10 RECEIVE END MESSAGE FROM DEVICE %06%A(0)2N') 
ZAERROR INR SPONSE TO NE OMMAND FOR PLA 


2 ONLI ¢ LATTER %D3%A.N° 
(ZASCIZ"ZAPLATTER %D3%A. IS SW WRITE-ENABLED BUT HW Roe areC TED An" ), 
CEASCIZ* ZAACCESS FAILED ON PLATTER £D3%A.2N'), 
ZASCIZ ATT oeees FFLINEZN'), 
Re (0) SOT CESSING COMMAND PACKETSEN®) , 
12°ZAMESSAGE REJECTED BY DUP SERVER ON DEVICE %06%A(0)2N"), 
EBD~22 = UPLIT (%ASC1Z°%ANO RESPONSE FROM FRONT PANEL TEST EXECUTING IN DEVICE *%06%A(0)2N"), 


HARD (ERRHRD) = MAINLY BASED ON MSCP STATUS CODES 
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(ZASC12"ZASUCCESSEN'), 

(ZASCIZ°ZAINVALID COMMANDIN') 

ZASCIZ°2A ABORTEDEN') , 

(ZASCIZ" ZAUNIT~OFFLINESN') » 

ZASC1Z" ZAUNIT=AVAILABLEN’ ) 
(ZASCIZ°ZAMEDIA FORMAT ERROREN'), 
(ZASCIZ" ZAWRITE=PROTECTEDIN'), 
(ZASCIZ*RADEVICE COMPARE ERRORZN'), 
ZASCIZ'ZADATA ERRORIN'), 
(ZASCIZ"ZAHOST BUFFER ACCESS ERRORIN' ‘ 
(ZASCIZ*ZACONTROLLER ERRORZN'), 
(ZASCIZ°ZADRIVE ERRORIN'), 


. 
ISSSSO AAAS 
~~ ~ ~~ 


BH_ T (ZASCIZ"ZAHOST-DETECTED WRITE-COMPARE ERRORZN' 
EBH_ rie UPLIT CEASCI2" ZAFAILED TO RECEIVE END MESSAGE FOR 1/0 * COMMANDIN'), 


ienenes EXTENDED ERROR (PRINTX) AND ERROR LOG (PRINTF) MESSAGES 


me ee ee ee ee ee ee ee ee me a Be ed ee ee od ed ed ed ed ed od ed 


SESEGFOR WSS 


"= UBLIT (ZASCIZ°ZA SA: ger 
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SSRSRSS Ses 


Porn 
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EX_HMA LI 
EXx_03 = UPLIT (ZASC 


Woe 


(ZASCIZ°%A CMD REF NUM: 1O8XAC0 )2N‘), 
tT uaseizs A stavus. CODE: xpota LOSE y 
(ZASCIZ'%A DUP STATUS CODE: pie IN"), 
ZASCIZ°ZA SUB-C CODE: "Hosta 0) 2N') 
(ZASCIZ'%A oC 

(ZASCIZ°ZASET CTLR in’)? 
(ZASC12Z"ZAONLINE °) 

(ZASCIZ"ZAEXECUTE SUPPLIED PROGRAM’), 
(ZASCIZ"%ASEND DATA’), 

ZASCIZ*AREAD') , 

T (ZASCI2Z°ZAWRITE"), 

T (ZASCIZ°ZA=COMPAREZN’), 

ZASCIZ'ZA BAD BLOCK REPORTED: %D5S%A.2N'), 

T (ZASCIZ2°%ZA ——- LBN: %D5%A.%N'), 

T (ZASCIZ"%A BYTE COUNT IN COMMAND: %D5%A.2N°) 
(ZASCIZ°%A ACTUAL # OF BYTES TRANSFERRED: %D5%A.2N' 
(ZASC1Z"%A_ _—«1/0 BUFFER DESCRIPTOR: sROPEACO)XO7EACO)IN'S, 
(ZASCIZ*2NZAERROR LOG MESSAGE RECEIVED: 3N' 
(ZASCIZ'ZA PLATTER: 3D3%A.2N'), 

ASCIZ'ZA —s« FORMAT: 
SCIZ"ZA EVENT CODE: 
(ZASCIZ"%A_ HOST MEM sipR.  $07%A(0) X07%A(0)2N"), 
12'%03%A(0)2N"), 


‘aneeee MISCELLANEOUS 


UPLIT (ZASCIZ° 
UPLIT (ZASCIZ 
= UPLIT (ZASCIZ' 
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SEQ 0058 
CZRCD1 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:25 VAX-11 Bliss-16 V3-555 age 
v01.0 DEFAULT HARDWARE P-TABLE B-Jul-1983 17:04:44 DUA2: CDOUCETTE .CZRCDICZRCD1.SRC;5 (5) 


ZSBTTL "DEFAULT HARDWARE P-TABLE' 


'¢ 

: ro DEFAULT HARDWARE P~TABLE CONTAINS DEFAULT VALUES OF THE yj mis 
: ARAMETERS. THE dae + Ma | OF THIS TABLE IS IDENTICAL TO THE STRUCTURE 
: OF THE ACTUAL HARDWARE P=-TABLES, WHICH RESIDE IN SUPERVISOR SPACE. AND 
: IS USED AS A “TEMPLATE” FOR BUILDING THE P=TABLES. 


le 

BGNHW (DFPTBL); 

GLOBAL 
HWPT_IP_ADDR : WORD INITIAL ! IP ADDRESS 
HWPT_VETTOR : “WORD INITIAL (¢ ) ! VECTOR ADDRESS 


er “BR_LEVEL : WORD INITIAL ! BRL 
PLAT : WORD INITIAL (0); ! PLATTER ADDR, PROTECTON BIT 


02 00 
Se 
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cZRCD1 CZRCDAO RC25 DISK EXERCISER 11-Jul-198 VAX-11 Bliss-16 V3-555 Page 
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ZSBTTL "SOFTWARE P-TABLE' 


0000 Co 
wn 
oOoon 


1 
: THE SOFTWARE P=TABLE CONTAINS VARIOUS DATA Ag BY THE PROGRAM AS 

; OPERATIONAL PARAMETERS. THESE P. an Teese ; = UP AT ASSEMBLY TIME 
: AND MAY BE VARIED BY THE OPERATOR AT RUN T 


S885 


BGNSW (SFPTBL); 
GLOBAL 


SwP_ oe, WORD I 
WP-XFER : “WORD INI 


& 


HARD ERROR LIMIT FOR DROPPING UNIT 
TRANSFER LIMIT PER UNIT PER PASS 
START im RACK 


NS 
ovo 


ENDING TRACK 
FLAGS (SEE DOCUMENTATION) 
DATA PATTER ER 

USER DATA PATTERN COUNT 
USER DATA PATTERN 


ee ee ed ed ed ed od ed 
miei ttt 3 
NEw nNoOu 


SWP_UCNT : I fait 
SWPTUDPAT : VECTOR CMAX_ WORD; 


ENDSW; 
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SEQ 0060 

CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:25 VAX-11 Bliss-16 V3-555 Page 11 
PROTECTION TABLE 8-Jul-1983 1 oiOere DUA2: CDOUCETTE .CZRCDICZRCD1.SRC;3 (7) 
ZSBTTL ‘PROTECTION TABLE’ 
'¢ 
: THIS — 73 USED BY THE RUNTIME SERVICES TO PROTECT THE LOAD MEDIA. 
: ARG = BYTE OFFSET INTO P=TABLE FOR CSR ADDRESS 
: 2N0 ARG = BYTE OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
: D ARG = Att OFFSET INTO P-TABLE FOR DRIVE NUMBER 
; errs OFF Ser ste ta TO THE NUMBER OF SYTES FROM THE BEGINNING OF A 
: PTABLE ENTRY TO THE ITEM IN QUESTION. A THE PARTICULAR ITEM DOES NOT 
: APPLY, THEN "ENTRY IS SET TO -1. EN THE RUNTIME seayice EXECUTES A 
: G D, gt THESE OFFSETS (IF NOT SET TO -1) TO Ry THE ITEM ; AND 
; OMPARE WITH THOSE SAVED IN THE XXDP+ MONITOR. IF THE UNIT BEING 
: REQUESTED MATCHES THE LOAD DEVICE, THEN THE RUNTIME SERVICES RETURN AN 
INCOMPLETE FLAG ON THE GPHARD. 
BGNPROT (-1, =-1, -1); 
ENDPROT; 
END 
ELUDOM 

-TITLE CZRCD1 CZRCDAO RC25 DISK EXERCISER 

eIDENT /V01.0/ 

- ENABL 

-PSECT $CODE$, RO 

103 132 LSNAME::.ASCII / CZ/ 
103 104 eASCII = /RCD/ 
BYTE 0 
BYTE 0 
LSREV 
th) /A/ 


33 D 
:: WORD 0 
LSDTYP::.WORD 1 
LSAPT:: .WORD 0 
LS$DTP:: .WORD LSDISPATCH 
LS$PRIO::.WORD 0 
LSENVI::.WORD 0 
LSEXP1::. 0 
LSMREV:: 
BYTE 3 
BYTE 3 
LSEF eWORD O 
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SEQ 0061 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:25 VAX-11 Bliss-16 V3-555 Page 
PROTECTION TABLE 8-Jul-1983 17:04:44 DUA2: CDOUCETTE.CZRCDICZRCD1.SRC;3 (7) 
eWORD 0 
LSSPC:: .WORD 0 
LSDEVP::.WORDB LSDVTYP 
LSREPP::.WORD LSRPT 
LSEXP4::.WORD 0 
LSEXP5::.WORD 0 
LSAUT:: .WORD LS$AU 
L$DUT:: .WORD LS$DU 
LSLUN:: .WORD 0 
LSDESP::.WORD LSDESC 
L$L :.WORD 737 
LSETP:: .WORD LSERRTBL 
LSICP:: .WORD LSINI 
LSCCP:: .WORD LSCLEAN 
LSACP:: .WORD LS$AUTO 
LSPRT:: .WORD LSPROT 
LSTEST::.WORD 0 
LSDLY:: .WORD 0 
LSHIME::.WORD 0 
SPCNT::.WORD 1 
LSDISPATCH:: - 
ERRTYP::.BLKW 1 
ERRNBR::.BLKW 1 
ERRMSG::.BLKW 1 
ERRBLK: : .BLKW 1 
120 040 eAAA: .ASCII /IF / 
104 104 eASCII = /ADD/ 
105 123 ASCII /RES/ 
000 000 eASCI? /S/<00><00> 
105 103 P.AAB: .ASCal /VEC/ 
117 122 eASCII =/TOR/ 
000 -4SCII <00><00> 
122 040 P.AAC: .ASCII /BR / 
105 126 eASCII /LEV/ 
114 000 ASCII /EL/<00> 
eASSU <00> 
114 101 P.AAD: .ASC)I /PLA/ 
124 105 eASCil = /TTE/ 
040 101 eASLII = /R AS 
104 122 ASCII = /DDR/ 
123 123 ASCII /ESS/ 
050 125 ASTII / (U/ 
111 124 eASCII /NIT/ 
120 114 ASCII / PL/ 
107 051 eASCII /UG)/ 
ASCII <00> 
114 114 P.AAE: .ASCII /ALL/ 
127 040 eASCII /0W / 
122 111 eASCII /WRI/ 
105 123 eASCII = /TES/ 
124 117 eASCiI / i0/ 
103 125 ASCII / Ct 
124 117 eASCII /STO/ 
105 122 ASCII /MER/ 
104 101 ASCII / DA/ 
101 040 eASCII /TA/ 
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SEQ 0065 
CZRCD1 CZRCDAO RC25 DiSK EXERCISER 11-Jul-1983 08:42:25 VAX-11 Bliss-16 V3-555 Page 
v01.0 PROTECTION TABLE B-Jul-1983 17:04:44 DUA2: CDOUCETTE.CZRCDICZRCD1.SRC;3 (7) 
001253 124 111 101 eASCII = /TIA/ 
001256 114 040 123 eASCII /L S/ 
001261 105 114 105 -ASCII /ELE/ 
001264 103 124 111 eASCII /CTI/ 
001267 117 116 051 eASCII = /0N)/ 
001272 000 000 eASCII <00><00> 
001274 116 125 115 P.AAT: .ASCII /NUM/ 
001277 102 105 122 eASCII = /BER/ 
001302 040 117 106 eASCII / OF/ 
1305 040 127 117 ASCII WO/ 
001310 122 104 123 eASCII = /RDS/ 
001313 040 111 116 eASCII / IN/ 
001316 040 104 101 eASCI! / DA/ 
001321 124 101 040 ASCII /TA/ 
1324 120 101 124 eASCII = /PAT/ 
001327 124 105 122 eASCII = /TER/ 
001332 116 040 050 ASCII /N / 
001335 061 066 040 eASCII /16 / 
1340 115 101 130 eASCII = /MAX/ 
001343 111 115 125 eASCII = /IMU/ 
1346 115 051 000 eASCII = /M)/<00> 
001351 000 -ASCII <00> 
001352 120 101 124 P.AAU: .ASCII /PAT/ 
001355 124 105 122 eASCII = /TER/ 
1360 116 040 126 eASCIi /N V/ 
001363 101 114 125 eASCII = /ALU/ 
1366 105 000 eASCII /E/<00> 
001370 124 110 105 P.AAV: .ASCII /THE/ 
001373 040 122 105 eASCII / RE/ 
001376 115 101 111 eASCII /MAI/ 
001401 116 111 116 eASCII = /NIN/ 
001404 107 040 121 ASCII /G Q/ 
001407 125 105 123 -ASCII /UES/ 
001412 124 111 117 eASCII /TI0/ 
001415 116 123 040 eASCII /NS / 
001420 117 116 114 eASCII = /ONL/ 
001425 131 040 101 eASCII /Y A/ 
001426 120 120 114 eASCII = /PPL/ 
001431 131 040 124 ASCII /Y T/ 
001434 117 040 125 ASCII. /0 U/ 
001437 116 120 122 eASCII = /NPR/ 
001442 117 124 105 eASCII = /OTE/ 
001445 103 124 105 eASCII /CTE/ 
001450 104 040 120 ASCII /D P/ 
001453 114 101 124 eASCII = /LAT/ 
001456 124 105 122 eASCII = /TER/ 
0014¢1 123 056 000 eASCII /S,/<00> 
001464 000 000 P.AAW: .ASCII <00><00> 
001466 045 101 120 P.AAX: .ASCII /ZAP/ 
001471 117 127 105 eASCII = /OWE/ 
001474 122 040 104 eASCII = /R D/ 
001477 105 114 101 eASCII = /ELA/ 
001502 131 040 v55 ASCII /Y = 
001505 040 127 101 eASCII / WA/ 
001510 111 124 111 eASCII = /I1TI/ 
0015153 116 107 045 eASCII = /NG2/ 
001516 116 000 eASCII = /N/<00> 
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SEQ 0066 
CZRCD1 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:25 VAX-11 Bliss=-16 V3=-555 Page 
v01.0 PROTECTION TABLE B-Jul-1983 17:04:44 DUA2: CDOUCETTE .CZRCDICZRCD1.SRC;3 (7) 
001520 045 116 045 P.AAY: .ASCII /2NZ/ 
001523 101 101 102 eASCII = /AAB/ 
001526 117 125 124 eASCII = /OUT/ 
001531 040 124 117 eASCII / TO/ 
1534 040 126 105 eASCII / VEZ 
001537 122 111 106 eASCII = /RIF/ 
001542 131 040 126 ASCII /Y V/ 
1545 105 103 124 ASCII /ECT/ 
001550 117 122 040 eASCII = /OR_/ 
001553 045 117 063 eASCII /%03/ 
001556 045 101 050 eASCII = /2AC/ 
001561 117 051 040 eASCII /0) / 
1564 106 117 122 eASCII = /FOR/ 
001567 040 104 105 eASCII / DE/ 
001572 126 111 103 eASCII /VIC/ 
001575 105 040 045 eASCII /E 2/ 
1600 117 066 045 eASCII = /06%/ 
001603 101 050 117 eASCII = /ACO/ 
1606 051 040 056 ASCII /) ./ 
001611 056 056 040 ASCII /.. / 
001614 000 000 eASCII <00><00> 
001616 045 101 103 P.AAZ: .ASCII /ZAC/ 
001621 117 115 120 eASCII = /OMP/ 
1624 114 105 124 eASCII /LET/ 
001627 105 104 056 eASCII /ED./ 
001632 045 116 000 -ASCII /%N/<00> 
001635 000 eASCII <00> 
001636 045 116 045 P.ABA: .ASCII /2N%/ 
001641 101 111 116 eASCII = /AIN/ 
001644 111 124 040 ASCII /IT / 
001647 123 125 102 eASCII = /SUB/ 
001652 124 105 123 eASCII /TES/ 
001655 124 040 123 ASCII /T S/ 
001660 124 101 122 eASCII = /TAR/ 
001663 124 045 116 eASCII = /TEN/ 
001666 000 000 eASCII <00><00> 
001670 045 116 045 P.ABB: .ASCII /2N%/ 
001673 101 115 125 eASCII = /AMU/ 
001676 114 124 111 eASCII /LTI/ 
001701 055 104 122 eASCII = /=DR/ 
001704 111 126 105 ASCII /IVE/ 
001707 040 123 125 ASCII SU/ 
001712 102 124 105 eASCII = /BTE/ 
001715 123 124 040 eASCII /ST / 
001720 123 124 101 eASCII = /STA/ 
001723 122 124 045 eASCII §=/RTR/ 
001726 116 000 eASCII /N/<00> 
001730 045 116 045 P.ABC: .ASCII /%N2%/ 
001733 101 104 115 eASCII = /ADM/ 
001736 040 105 130 eASCII / EX/ 
001741 105 122 103 eASCII = /ERC/ 
001744 111 123 105 ASCII = /ISE/ 
001747 122 040 123 ASCII /RS 
001752 125 102 124 eASCII = /UBT/ 
001755 105 123 124 eASCII = /EST/ 
001760 040 123 124 ASCII / ST/ 
001763 101 122 124 eASCII = /ART/ 
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SEQ 0068 
CZRCD1 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:25  VAX=11 Bliss-16 v3-555 Page 19 
v01.0 PROTECTION TABLE B-Jul-1983 17:04:44  _DUAZ:CDOUCETTE.CZRCDICZRCD1.SRC;3 (7) 
002235 106 131 040 ASCII. /DY / 
002240 064 040 125 “ASCII /4 U/ 
002243 116 #8111 = 124 “ASCII /NIT/ 
002246 123 040 101 “ASCII /S A/ 
002251 124 040 111 “ASCII /T I/ 
002254 120 040 045 “ASCII /P 3/ 
002257 117 (066—s«éKS “ASCII /06 
002262 4«4101«=(0S0—St—té=é*22?7 SASCES AC 
002265 051 000 000 “ASCII /3/<00><00> 
002270 0465 116 045 P.ABH: ASCII /2N% 
002273 «= 101,—'i‘i‘wS:=Ci(<téié‘iT SASETT SAMO 
002276 © 122,~=C(i«é105='i(‘iéiO “ASCII /RE / 

230 12 110 101 “ASCII /THA/ 

2 116 © 040045 “ASCII /N% 

230 106 061045 “ASCII /D1%/ 
002312 101 «= (040Ss«108 “ASCII /A_D 
002315 111 106 106 “ASCII /IFF/ 
00232 105 = 122,—s«105 “ASCII /ERE/ 
002323 «116 ~Ss«124—Sts«H “ASCII /NT / 

232 111 120-040 “ASCII /IP_/ 
002331 101 104 104 “ASCII /ADD/ 

23 122 105 123 “ASCII /RES/ 
002337 «123-Ci«id123—Ctsti«i108 “ASCII /SSE/ 
002342 123 000 “ASCII /S/<00> 
002344 045 101 125 P.ABI: ASCII /%AU/ 

234 116 436111124 “ASCII /NIT/ 
002352 040 045 104 “ASCII /_%D/ 
002355 062 045 101 “ASCII /2%A/ 
002360 056 040 104 “ASCII /. D/ 
002363 122 117 ~#=«120 “ASCII /ROP/ 

2366 120 105 104 “ASCII = /PED/ 
002371 040 055 040 “ASCII / = / 
002374 000 000 “ASCII <00><00> 
002376 «86s «04S—i‘(<isid:SC(‘<‘é‘é‘ RS P.ABJ: ASCII /%AU/ 
002401 123 105 122 “ASCII /SER/ 

2404 040 103 117 “ASCII / CO/ 
002407 #115 115 =~ «=101 “ASCII 
002412 116 106 045 “ASCII /ND3/ 
002415 116 000 000 “ASCII /N/<00><00> 
002420 045 101 103 P.ABK: ASCII /ZAC/ 
002423 117 «+116 106 “ASCII /ONF/ 
002426 111 «+107 ~ ~# 125 “ASCII /1GU/ 
002431 122 «+101 12% “ASCII = /RAT/ 
0024 111 «117,—s«2116 “ASCII = /1ON/ 
002437 040 105 122 “ASCII / ER/ 
002442 122 «+117 122 “ASCII /ROR/ 
002445 045 116 000 “ASCII /%N/<00> 
002450 0465 101 ~~ 111 P.ABL: <ASCII /%AI/ 
002453 «= 116—Ss«d11.—i‘isézi SASCII /NIT/ 
002456 040 105 122 “ASCII / ER/ 
052461 122 117 ~~ 122 “ASCII /ROR/ 
002464 045 116 000 “ASCII /%N/<00> 
002467 000 “ASCII <00> 
002470 045 101 110 P.ABM: <ASCII /ZAH/ 
002473 4«101—=Sfs«d122—C—t«Cité<«*2i2 “ASCII /ARD/ 
002476 040 105 122 “ASCII / ER/ 
002501 122 £4117 ~=©‘122 “ASCII © /ROR/ 
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SEQ 0070 
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SEQ 0074 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:25 VAX=11 Bliss-16 V3-555 age 
PROTECTION TABLE B-Jul=1983 17:04:44 DUA2: CDOUCETTE .CZRCDICZRCD1.SRC;3 (7) 


117 


OOoRF 
MAWO & FMI OoO 
ror 
moe 
SRn== 
CWO LO 


= m 

eLRURS 
-—oc 
aS88 


SSRVIRRRF 


° 
a os a oS 
SENSR 


ULSNOAOUMUS = 
E> 


Dd ad ae 
see 
o=-—— 
—_ 


ed wk 
—s 


soooo— 
ee 
>>> Pr rr 
awn 
fee beeey bang Peg Dee Bee Demo bemet Dems Derm fmt md fos be Py Dad and eet Pee Bee aod bas ne bs 
res fey danas Dang Bod fio eng Peme Fame Dom) Damn ry temg Dame fem} Dang mee mmo Gong Gms Bg Pes Bane Be 


RASR 
P>PrP>rrr> >>P>>r> 
ANNMHMHMNHNYM “ 
AAAAMAAAAAAAAAAAAAAQAQAQAAAAN 


5 
gaseecee 


OWNOAONVVINUIY 
one NMOS 


Ww 
os 
a 


Rosny 


WWOAUSo— ure 
RP >>> 
AOnNnnnnnn 


PPPPrPPPPPPrrrrrr> 
ANNMMMNM nNNM 
AAAAAAAAAAAAAAAAQANAAN 


ee en bt ene Bang been fms bee ey Bey Dy Bad bane Bet hme Bees bem beet bend fom 


004 
004 
004 
004 
004 
004 
004 


WGA 
pare 
VIN &— 


ee ed ad ed td IO td ed od od 


pe eh ere 
Ss Hae prt th oe 
Muna SUIW 
RS=SNow=no=oNo 
ASWO- nN 
<b ed ed od ed 
Men 


at a a eed et ed ed 
bang Seng bane Gag fed Bag Beng bent hs Be ot be 


SOSEEER PEER 
NOSES SES 


Ww 
“ 
w 
Nm 
ANMVWUAMNS SNUVIN NW 


g 
SNRENA=ROOR 
z 


=s3ss 

=RaS 

—sa3 
NVUMooo £&vuo-un' 
ee re 
MMRNVIWOOSOCOoON— 
AOOCOWM—FWuwv 


ms 
~oO— 
~ 
oo—r 


R 
o= 
o-onf 


LJ 
w 
SoNoo-—-nNM 


RR 
VNUIWIO 


—— +4 
—— 
tame fay Gag bang fee bmg Geng Sang fee fog fame Gang Png Ooms beng fmg feng Omg deg Gog Bome Bang Pane Samy dane fog bang dome bong bene bang dome Omg 


~~ 2 OO = 
mwnr—owvr 

>> >Prrrr> > 
wn wn w“” 
AOAOOOAOOOOOo 


MRO 
wo= 


oe 
o— 





K 6 
SEQ 0075 
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CZRCD1 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 
v01.0 PROTECTION TABLE 8-Jul-1983 1 


SEQ 0076 
8:42:25 VAX-11 Bliss=-16 V3=555 Page 27 
7:04:44 DUA2: CDOUCETTE .CZRCDICZRCD1.SRC;3 (7) 
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cZRCD1 CZRCDAO RC25 DISK EXERCISER 11=Jul=1 : VAX-11 Bliss=16 V3-555 Pa 
v01.0 PROTECTION TABLE 8-Jul-1 : _DUA2: CDOUCETTE .CZRCDICZRCD1.SRC;3 (7) 


SEQ 0077 
ge 28 


coat 


er er er ee 

— aan MNO 

fSoe2un&——Oonnu 
_ 
~ 


BAAN SASAKI 
RSnokRRoO Rue 


os 
ooo 
> PPrrrr> >> 
ann NNANMKMMNHNHHHNYW 
AAMAAAAAAAAAAQAANAO 


SANWOVUIOWOOSOA vive 


=) 
oon 


Ses SS SS 


— 2 ON =| =DOnmwnvnocoo 


x 


—— 
— oe 


o-OfkVUWNNO-uU 
md beet tag bent and bey Deed hang Geng Bed Gees Fees bees fee bag band me ad fame fet ag Pred ms 
ame ees Demy Beng fremee amg Dama benny bend bed Peed Dems rm deg Oomg Pg Domed Gnd md Peng Bane Coed Gnd Pam 


WOUIAAUSO—NYIWU 
SR Roxas 
NOO WAN 


ofooo-owUl 
Mon 


onuu— 


ARRUER 

ono 

o-oo 
o-—N 


04 
12 
0 
1 
1 
1 
0 
1 
0 
1 
04 
04 
1 
1 
1 


RRSRUNERPASEVOEOE SOE AS 
oOoou oucow 
SONVROmHRRIENVOSO So 

WUE SO $ANUUMONUSC— 

RO es 
SOOC0O2]] NN NW OOO NN So 

>Prrr>y 
nnnn 
AAAOIOAAOOAOAOAOIOAOOWOAAAOA 
Ded Pend ted foes en Be bt at bn Dn 


oor 


O20 2 = 
FW - Onn 
Sonny Lf LOMO -]N— 


S 
so 


ofo 
ao Pees bem tng tng bemmg et femeg fed omg Dems ead Poms Pad eg bey bg og Omg Pe Og Bag ng fag frag eng fey Gmeg ng md og bed beg 


>>> >>> Pry >>r>> 

~” nnnn 
AOOAQOOOOAIAOAIOAAOAOOAO 
a bo bt bay be be ag ng Peay bene ng ne Dane Beg bens frmet bemet mg fremy beeen) Gmcd Domed amd 


& 
MVIWVi 





N 6 


Q 0078 
CZRCD1 CZRCDAO RC25 DISK EXERCISER 11-Jul-1 : VAX-11 Bliss-16 V3-555 


Page 29 
PROTECTION TABLE 8-Jul-1 204: _DUA2: CDOUCETTE.CZRCDJCZRCD1.SRC;3 (7° 
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SEQ 0079 
CZRCD1 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:25 VAX-11 Bliss-16 V3-555 Page 
v01.0 PROTECTION TABLE 8-Jul-1985 17:04:44 DUA2: CDOUCETTE.CZRCDICZRCD1.SRC;3 (7) 
005665 040 102 114 eASCII / BL/ 
005670 117 103 113 eASCII =/O0CK/ 
005673 040 122 105 ASCII / RE/ 
005676 120 117 122 eASCII = /POR/ 

5701 124 105 104 eASCII = /TED/ 

5704 072 040 045 eASCII /: %/ 
005707 104 065 045 eASCII = /D5%/ 
005712 101 056 045 eASCII = /A.2%/ 
005715 116 000 000 eASCII /N/<00><00> 
005720 045 101 040 P.ADT: .ASCII /%A / 
005723 040 040 040 ASCII / / 
005726 114 102 116 eASCII /LBN/ 
005731 072 040 045 ASCII /: 2/ 

5 104 065 045 eASCII = /D5%/ 
005737 101 056 045 eASCII = /A.3/ 
005742 116 000 eASCII = /N/<00> 
005744 045 101 040 P.ADU: .ASCII /%A / 
005747 040 040 040 ASCII /  / 
005752 102 131 124 ASCII = /BYT/ 
005755 105 040 103 ASCII /E C/ 
005760 117 125 116 eASCII  /OUN/ 
005763 124 040 111 ASCII /T I/ 

5766 116 040 103 eASCII /N C/ 

5771 117 115 115 eASCII = /OMM/ 
005774 101 116 104 eASCII = /AND/ 
005777 072 040 045 eASCII /: 2/ 
006002 104 065 045 eASCII = /D5%/ 
006005 101 056 045 ASCII /A.%/ 
006010 116 000 eASCII /N/<00> 
006012 045 101 040 P.ADV: .ASCII /2%A / 
006015 040 040 040 ASCII / / 
006020 101 103 124 eASCII = /ACT/ 
006023 125 101 114 eASCII = /UAL/ 
006026 040 043 040 ASCII / #/ 
006031 117 106 040 eASCII /OF / 
006034 102 131 124 eASCII = /BYT/ 
006037 105 123 040 ASCII /ES / 
006042 124 122 101 eASCII = /TRA/ 
006045 116 123 106 eASCII = /NSF/ 
006050 105 122 122 eASCII = /ERR/ 
006053 105 104 072 eASCII = /ED:/ 
006056 040 045 104 ASCII / 2D/ 
006061 065 045 101 ASCII = /52A/ 

056 045 116 eASCII /.2N/ 
006067 000 eASCII <00> 
006070 045 101 040 P.ADW: .ASCII /%A / 
006073 040 040 040 ASCII / 
006076 111 057 117 eASCII §=/1/<57>/0/ 
006101 040 102 125 eASCII / BU/ 
006104 106 106 105 eASCII /FFE/ 
006107 122 040 104 eASCII /R D/ 
006112 105 123 103 eASCII /ESC/ 
006115 122 111 120 eASCII = /RIP/ 
006120 124 117 122 eASCII = /TOR/ 
006123 072 045 117 ASCII = /:%0/ 
006126 067 045 101 eASCII = /72A/ 
006131 050 117 051 ASCII /(0)/ 


ae 


CZRCD1 CZRCDAO RC25 DISK EXERCISER 11-Jul=1 : VAX=11 Bliss=-16 V3-555 Pa 
v01.0 PROTECTION 7 48LE 8-Jul=1 : DUA2: CDOUCETTE .CZRCDICZRCD1.SRC;3 (7) 
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SEQ 0081 

CZRCD1 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:25 VAX-11 Bliss=-16 V3-555 Page 32 
v01.0 PROTECTION TABLE 8-Jul-1983 08: 2:04:44 DUA2: CDOUCETTE.CZRCDICZRCD1. SRC; 3 (7) 
006400 045 104 06. ASCII /2D2/ 
006403 045 101 07 eASCII /2%A:/ 
006406 045 104 062 ASCII /2D2/ 
006411 045 101 040 eASCII /2A / 
006414 040 000 ASCII / /<00> 
006416 045 101 120 P.AEE: .ASCII /%AP/ 
006421 114 101 124 eASCII /LAT/ 
006424 124 105 122 eASCII /TER/ 
006427 040 045 104 eASCII /_2D/ 
006432 063 045 101 ASCII /3%A/ 
006435 056 040 055 ASCII /. =/ 
006440 040 000 ASCII / /<00> 
006442 045 116 000 P.AEF: .ASCII /%N/<00> 
006445 000 ASCII <00> 
006446 000000C LSHWLEN:: 

eWORD <<LSNDHW-LSHWLEN>/2> 
006450 172150 HWPT.IP.ADDR:: 

eWORE 5630 
006452 000154 HWPT.VECTOR:: 

eWORD 154 
006454 000005 Pt AAS ; 
006456 000000 HWPT.PLAT:: 

«WORD O 
006460 LSNDHW::.BLKW 1 
006462 000000C LSSWLEN:: 

. <<LSNDSW-LSSWLEN>/2> 
006464 000040 SWP.ERROR: : 

-WORD 40 
006466 000002 SWP.XFER:: 

eWORD 2 
006470 000000 nino 9 
006472 003151 SWP.ETRACK: : 

«WORD 3151 
006474 055 SWP.FLAGS:: 

-BYTE 55 
006475 000 SWP.DPAT:: 

-BYTE O 
006476 600020 SWP.UCNT:: 

-WORD 20 
006500 SWP.UDPAT:: 

-BLK 20 
006540 LSNDSW::.BLKW 1 
006542 177777 LSPROT::.WORD -1 
006544 177777 eWORD -1 
006546 177777 eWORD -1 

-PSECT SFFFS$, RO 
000000 pare : .BLKW 144 
000310 CPT: -BLKW 10 
000330 CST:: -BLKW 34 
000420 CST.ADDR: : 


LkwW 1 
000422 DCT::  .BLKW 44 


CZRCD1 
v01.0 

000532 
000534 


017634 


023440 
023540 
023600 
uz5002 
023604 
023606 
023607 
023610 


023612 


CZRCDAO RC25 Alt EXERCISER 


PROTECTION TAB 


DCT.ADDR: : 
-BL 

RC25. ADDR: : 
-BLK 

IRC25.ADDR:: 


DM. COMM: : 
-BLKW 
DMC.ADDR: : 


RP.SAVE:: 


RP. INDX? : 
RP.ADDR: : 

BUFF DESC: : 
BUFF . OWN: : 


10D0:: <BLKW 
10D. IN:: 


«BLK 
10DQ.0UT: : 


-BLKW 
ENTRY.REASON: : 


-BL 
T.FLAG: :.BLKB 
EO 3 


as oe ae —s ws eed 3 — 


E 7 


11-Jul-1 
8-Jul-1 


SEQ wag = 
VAX-11 Bliss=16 V3-555 


age 
_DUA2: CDOUCETTE .CZRCDICZRCD1.SRC; 3 (7) 


33 


F 7 


cZRCD1 CZRCDAO aCee Atte EXERCISER 11-Jul-1983 08: 242:25 VAX-11 Bliss=16 V3-5 
v01.0 PROTECTION TABLE 8-Jul-1983 17:04:44 


023642 Q10:: .BLKW 
023646 MEM.SIZE:: 


-BLKW 

023650 FREE MEM. ADDR: 
023652 BUFF .SIZE:: 

-BLKW 
023654 NUM.BUFF :: 
023656 saiaahidade 
023660 CLK.HERT2:: 
023662 CLK.CSR:: 

-BLKW 
023664 seoeaeiiert 


023666 HOURS:: .BLKW 
023670 MINUTES: : 


023672 SECONDS:: 


023674 TICKS:: . 
023676 ST.CODE:: 


023700 SB.CODE:: 
023702 
0237 


SEQ 0083 


555 
VDUA2: CDOUCETTE.CZRCDICZRCD1.SRC;3 (7) 
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CZRCD1 CZRCDAO RC25 tt EXERCISER 11-Jul=1 


SEQ 0084 
983 VAX=-11 Bliss-16 V3-555 
v01.0 PROTECTION TABLE 8-Jul-1983 


08:42:25 Pa 
17:06:44 DUA2: CDOUCETTE .CZRCDICZRCD1.SRC;3 (7) 
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CZRCD1 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 
v01.0 PROTECTION TABLE 8-Jul-1983 


001176° Swa P.AAS 
74° P.AAT 

P. AAU 

P.AAV 
P.AAW 
P.AAX 
P.AAY 
P.AAZ 
P.ABA 
P.AB 
P.ABC 


SEQ 0085 
VAX-11 Bliss-16 V3-555 


08:42:25 Pa 
17:06:44 _DUA2: CDOUCETTE.CZRCDICZRCD1.SRC;3 ( 
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SEQ 
CZRCD1 RCDAO RC SK EXERCISER 11-Jul-1983 08:42:25 VAX=-11 Bliss=-16 V3-555 37 
yore SROTEC TION T aBLe ae B-Jul-19 3 Fi oeree _DUA2: CDOUCETTE .CZRCDICZRCD1.SRC;3 ie 


o-n 


A 
P.A 
P.A 
P.A 
P 
Pp 
Pp 
Pp 
Pp 
P.A 
P.AE 
P.A 
Pp 
Pp 
Pp 
P.A 


AEF 
LSHWLEN¢2 
SFPTBL== LSSWLEN¢2 


PSECT SUMMARY 


Psect Name Attributes 
SCODES RO, I , LCL, REL. CON 
SFFFS RO, I , LCL, REL, CON 
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LIBRARY STATISTICS 


weoeeee= Symbols -<-----= Blocks 
File Total Loaded Percent Read 


_DUA2: CDOUCETTE .CZRCDICZRCOL.L16;9 276 138 50 39 


COMMAND QUALIFIERS 
BLISS /PDP11 CZRCD1.SRC/LIST/EN:NOEIS 
Size: 0 code + 6810 data words 
00:19.0 
ae Time: 00:24.0 


peer Used: 237 pages 
Compilation Complete 


01 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:25 
v01.0 PROTECTION TABLE ba jut= 1983 19:00:64 


Q 0087 
VAX-11 Bliss-16 V3-555 


DUA2: CDOUCETTE.CZRCDICZRCD1.SRC, 3 Be 


38 





cZRCD2 


539 


kK 7 


11-Jul-1983 0 
8-Jul-1983 1 


2:42:51 
46:34 


MODULE CZRCD2 ¢ 
Theute "Sea Cone RC25 DISK EXERCISER® 


N *V 
“-eerene MODE (ABSOLUTE) 
BEGIN 
ZSBTTL ‘DECLARATIONS* 


LIBRARY ‘CZRCDL’; 


! RC25 EXERCISER GLOBAL LIBRARY 
REQUIRE *BLSMAC.REQ’; 


! DIAGNOSTIC SUPERVISOR LIBRARY 


FORWARD hays 
NEX_TRAP LSISR NOVALUE, 
CLK_INT_ SERV : L$ISR NOVALUE, 
EMS_01 : NOVALUE ; 
EXTERNAL 
PATCH : VECTOR C100, WOR ! PATCH AREA 


WORDJ, 
CPT : VECTOR CMAX_UNITS, BYTE), 
: CURRENT PASS TESTING (YES 7 NO) PER UN 
CST : BLOCKVECTOR CMAX_CTLR, CST_LEN, WORD FIELD (C_FIELDS), 
: RUN=T IME 5 CONTROLLER 3A STATUS TABL BS 


J ), 
: CONTROLLER STATUS TABLE ADDRESS OF TECURRERT™ CONTROLLER 
DCT : BLOCKVECTOR CMAX 
: DRIVER Seger yg TABLES 
DCT_ADDR : .‘ BLOCK word) FIELD (DC FIELDS), 
ADDRESS OF *‘CURREN Nr "DRIVER CONTROLLER TABLE 
RC25_ADDR : REF RC25 FIELD (RC_REG), 
: BEVICE ADDRESS OF ‘‘CURRENT™ CONTROLLER 


SEQ 0088 
VAX-11 Bliss-16 V3=-555 Page 
_DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (1) 


MVIviviw 





SEQ 0089 

IRC25_ADDR : REF RC25 FIELD (RC_REG) 

DEVI ICE ADDRESS OF INTERRUPTING CONTROLLER 
M_COMM : BLOCKVECTOR CMAX_CTLR, DMC LEN. von] FIELD (DMC FIELDS), 

DM EXERCISER COMMUNI CAT 10N AREA TLI FRONT ANEL TEST 
DMC_ADDR : REF BLOCK COM WORDJ TEL 1D” (OnE F IELD 

“ADDRESS OF CURRENT *ORTROCLER™ S DM EXERCISER LEDS) nton AREA 
RP_SAVE : VECTOR CMAX_CTLR * RPS_LEN, BYTE, tS ENED DJ, 

RETURN PACKET SAVE AREA 

RPS_X1 : WORD, } STARTING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA 


S_X2_: WORD , NDING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA 
OUTT_LIST : VECTOR CMAX_CTLR * OUTC_CNT, BYT é, SIGNEDJ, 
TSTANDING COMMAND "LIST (CONTAINS ,lisce ENVELOPE INDECES) 
OUTC_TIMR : VECTOR CMAX_CTLR * OUTC_CNT, WORDJ, 
OUTSTANDING COMMAND TIMERS 
OCL_Xx1 : WORD. 
“STARTING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA 


ENDING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA 
TALLY : VECTOR ay ‘eee * TALLY_LEN, WORD] FIELD (T_FIELDS), 


STATISTICS 
T_ADDR : REF BL TALLY_LEN, WORD] FIELD (T_FIELDS), 
ADDRESS OF STATISTICS | TABLE (TALLY) FOR CORR 
pac tol Oe BL CENV_CNT, ENV_LEN, WORD] FIELD (E_FIELDS), 


RETU N PACKE : 
RP_USE : VECTOR CRP_CNT, ‘ore. sen), 
RETURN PACKET POOL ALLOCATION TABLE 
RP_INDX : WORD, ! CURRENT RETURN PACKET INDEX 
RP_ADDR : REF BLOCK FRP_LEN, WORD] FIELD (RP_FIELDS), 
CURRENT RETURN PACKET ADDRESS 





m7 


SEQ we 
CZRCD2 CZRCDAO ee DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss=16 V3-555 Page 
v01.0 DECLARATI B-Jul-1983 17:46:34 _DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;35 (2) 


BUFF DESC : BLOCKVECTOR CMAX abe eat DESC_LEN, WORD] FIELD (BD_FIELDS), 
: TABLE OF I/O BUFFER DESCRIP 
F_OWN : VEC MAX _BUF "BYTE, SIGNEDJ, 
: 1/0 BUFFER QUNERSHTP (CONTROLLER NUMBER) 
10DQ_: VECTOR CIODQ_LEN, BYTEJ, 
: 1/0 DONE QUEUE = CIRCULAR QUEUE OF RETPKT INDECES 
N_: WORD, 1/0 DONE QUEUE IN POINTER 
ONE QUEUE OUT POINTER 
NT _PASS wt INVOKED 
MING FLAG 


8 


Be 


10DQ-OUT : WORD, 
ENTRY REASON. : BYTE, 
G : BYT 


SSLSAE 


Bad ed ed td do I YS) YI I I 


MEMORY MANAGEMENT FLAG 

NA TT eontna FLAG 

NUMBER OF ‘‘CURRENT’* CONTROLLE 

CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER? 
CST OFFSET FOR CURRENT UNIT 

TOTAL NUMBER OF CONFIGURED CONTROLLERS 
DROP UNIT 


REA 
NUMBER OF OUTSTANDING QI0S ar CONTROLLER 
os MEMORY (IN WORDS) UP TO 28K 
ST FREE MEMORY BELOW 28 


RAV= 


<CNT 
= VECTOR REMAX UNITS, BYTE), 
oe CMAX_CTLR, BYTEJ, 


a 


NUM_BUFF : 
CLK-TYPE : WORD, 
CLK_HERTZ : WORD, 
CLK~CSR, 


NUMBER / FFERS 
TYPE OF CLOCK ON SYSTEM 

0= “1 = L=CLOCK, 1 = P_CLOCK) 
CLOCK HERTZ RATE 
CLOCK CSR_ADDRESS 
CLOCK VECTOR ADDRESS 
ELAPSED TIME - H . 


ites’ 
apt | STATUS CODE 
T SUB- 


WONOULSWN—OOON 


eee ee ee ke et ee ee ed ed ed ed ed od ed 
Tt 2 I OOO 


AXXO 
horn 
Who 


: WORD, 
: SIGNED WORD, 
: WORD, ST E 
NON-EXISTENT MEMORY TRAP INDICATO 
COMMAND REF NUMBER OF LAST COMMAND SENT 


o 
Nm 
o 


. 
° 
. 
e 
a 
e 
. 
° 
. 
e 
oe 
° 
a 
e 
. 
e 
- 
© 
° 
° 
° 
° 
° 
° 
° 
* 
. 
° 
7 
e 
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° 
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° 
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° 
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. 
e 
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° 
. 
e 
° 
° 
° 
’ 
o 
° 
. 
° 
° 
e 
. 
o 
. 
oe 
7 
e 
a 
° 
. 
e 
7 
e 
a 
° 
* 
° 
. 
e 
o 
° 
o 
° 
2 
° 
. 
° 
o 
e 
e 
° 
. 
° 
© 
° 
7 
° 
. 
e 
. 
eo 
* 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
° 
° 
. 
° 
7 
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— a od os = on es = ot ot = ot So dd os ss so 


FRRPRAAAA occas 
BWM —COBNAUNEWN-6 
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SEQ a * 
CZRCD2 CZRCDAO ee DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-555 
v01.0 DECLARATION 8-Jul-19835 17:46:34 _DUA2: CDOUCETTE. CZRCDICZRCD2.SRC;5 had 
; 1645 $wa13 
; 1646 swai4, 
3 1647 $wa15, 
3 1648 SWM1 
: 1649 MSG_01, 
: 1650 MSG_07, 
: 1651 CER-01, 
: 1652 CER_02, 
3 1653 CER_03, 
3 1654 DUM_00, 
: 1655 DUM_UC, 
: 1656 DUM_CE, 
: 1657 DUM_IE, 
; 1658 DUM_HE, 
: 1659 DUM_UE, 
: 1660 EGS_01, 
: 1661 EGS_02, 
H 1662 EBS_01, 
: 1663 EBD_10, 
: 1664 EBD_12, 
: 1665 EBD_13, 
H 1666 EBD_14, 
; 1667 £BD_15, 
: 1668 EBD_16, 
; 1669 EBD-17, 
; 1670 BD-18, 
; 1671 EBD-19, 
3 1672 EBD_20, 
: 1673 EBD_21, 
3 1674 EBD_22, 
3 1675 EBH_31, 
: 1676 EBH_32, 
: 1677 EBH_34, 
: 1678 EBH_35, 
3 EBH_37, 
: 1681 EBH_38, 
: 1682 EBH_39, 
3 1683 EBH_40, 
: 1684 EBH_41, 
; 685 EBH_42, 
3 1686 EBH_43, 
3 1687 EX_SA, 
3 1688 EX_CRN, 
3 1689 EX_SC, 
; 1690 EX_DSC, 
: 1691 EX_SB, 
3 1692 EX_CMD, 
; 1693 EX"SCC, 
3 694 EX_ONL, 
3 1695 EX_ESP, 
: 1696 EX_SND, 
: 1697 EX"RD, 
3 1698 EX_WRT, 
: 1699 EX" CMP, 
: 1700 EX. 


6B, 
1701 EX~ LBN, 





on™ 
czRCd2 Tegel os DISK EXERCISER 11-Jul-19 : VAX-11 Bliss-16 V3-555 
v01.0 DECLAR 8-Jul=19 : DUA2: CDOUCETTE. CIRCDICZRCD2. SRC;5 55% 


VYNAANIN 
SRIEREAS 


ETRA 
SWP-FLAGS : ‘BYT Ee. 
LSLON, 
LSUNIT; 
ZSBITL ‘TYPE AND DESCRIPTION’ 
EQUALS; 
t+ 


; THE TEXT WHICH APPEARS IN THESE MACROS IS DISPLAYED TO THE USER WHEN 
; THE DIAGNOSTIC IS FIRST LOADED AND RUN. 


le 
DEVTYP (ZASCIZ"SINGLE RC25 PLATTER"); ! “UNIT IS SINGLE RC25 PLATTER’ 
DESCRIPT (ZASCIZ°RC25 DISK EXERCISER"); ! TEST DESCRIPTION 


FWN—OVONGO WSWwNo 


NNINONININ 2 ee at tO 


ee ee ee ee ee ee ee ee ee ee 
ror 
NOu 


NNNN NANNING 











CZRCD2 
v01.0 


ANNAN 
WWW 
Wr—OO0o 


NNNNN 


2 ot I 
Ww Aa 
SOUSA 


r 
r—) 


SEQ 0093 
VAX-11 Bliss-16 V3-555 


CZRCDAO RC25 DISK EXERCISER 11-Jul-19 751 ‘age 
19 34 _DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (4) 


HARDWARE PARAMETER CODING SECTION 8-Jul- 
ZSBTTL "HARDWARE PARAMETER CODING SECTION’ 


'¢ 

; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS THAT ARE USED BY 
} THE SUPERVISOR TO BUILD P=TABLES. THE MACROS ARE NOT EXECUTED AS 

H MACHINE peers ieee BUT ARE INTERPRETED BY THE SUPERVISOR AS DATA 

} STRUCTURES. THE MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
: WITH THE OPERATOR. 


BGNHRD ; 


GPRMA (HWO1, 0, 0, 20'160000', 40°177777", YES, 1); | _IP_ADDRESS 
GPRMA (Hud2, 2, 0, 204" , YES, 15; VECTOR 

GPRMD (HWO3, 4, 0, 20°177777", 20°64", £0'7%, i BR LEVEL 

PRMD (HUGG, 62D, O'S77™. ZOECIMAL'O", ROECIMAL*253°, YES, 1); 1 PLATTER ADDRESS 


GPRML (HWQ5, 6, %0°100000", NO, 1); ! WRITE ON CUST DATA AREA 
XFERF (HWDONE); ! NO = DONE 

GPRML (HWQ6, 6, %0°100000", NO, 1); i e® WARNING / CONFIRM 

SL (HWDONE); 


ENDHRD; 


NAN 
ARAAQXAMAMAAATMMAI 
SOUWOONOUFWN—O 


aoooousd 
wr 


eh ee ee ee et ee ed ed ed ed ed ad dd 
NNN 
SAF 
wi 


eo 
SN NNN NNN NNN 
COCo000 NINN NNN NN SY 
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SEQ a 
CZRCDAO RC25 DISK EXERCISER Vissuinies 98:4 42:51 VOUAD! Bliss-16 V3-555 
SOFTWARE PARAMETER CODING SECTION B-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (557° 


ZSBTTL "SOFTWARE PARAMETER CODING SECTION’ 


'4¢ 

: THE SOFTWARE PARAMETER CODING oa CONTAINS MACROS THAT ARE arte BY 
THE SUPERVISOR TO INTERROGATE THE OPERATOR FOR sik cacna INFORMATION 
WHICH WILL BE PLACED IN THE SOFTWARE P-TABLE. THE MACROS ARE NOT 
EXECUTED AS MACHINE INSTRUCTIONS BUT ARE INTERPRETED BY THE SUPERVISOR 
AS DATA STRUCTURES. THE MACROS ALLOW THE SUPERVISOR TO ESTABLISH 
COMMUNICATIONS WITH THE OPERATOR. 


ERROR LIMIT 
TRANSFER 


GPRMD (SWwQ1, 0, p. %0°177777', 0, 6: Wait 
age Oe ERROR LOG PRINTING 
DM EX ERC'SER 


(Swa2, 2, D, %0°177777", 0, 6 
(Swo3, 8, SUF SEL, YES, ie 
RML Csua se 8, SWF_DM, YES, 1); 


GPRML (SWwQ5, 8, SWF_RDM YES, 1); 
GPRMD (SWO6, 4. D, 20°1777 . 0. MAX_TRACK, YES, 1): 


G TR 
GPRMD (SWQ7, 6, D, %0° pear" GPSATLO(4), MAX TRACK, YES, 1); ! ENDIN 


GPRML (SWO8, 8. SWF_CRC, YES, 1); 

DISPLAY (Suit): REMAINING RUESTIONS ONLY APPLY ... 
GPRML (swag SWF_WO, YES, 1 WRITE ONLY 

GPRML (swa10, ~ SwF_cwc, YES. 4», WRITE=COMPARES AT CONTROLLER 
XFERT (sy nh IF YES, SKIP NEXT QUESTION 


Ne heel 


UE 
CHECK WRITES AT HOST BY READING 


USER-DEFINED DATA PATTERN 
IF YES, SKIP NEXT QUESTION 
gouge’ PRE-DEFINED DATA PATTERN 


GPRML csuari, 8, SWF_HWC, YES, 1); 


$i (SW 

GPRML (SWO12, 8, SWF_UDP, YES, 1); 

XFERT (SW2); 

GPRMD (S015, 8, D, %0°177400". 0, DP_CNT. YES, 1); 


XFER (SW4); 
(SW2); 
GPRMD (S$WQ14, 10, D, %0°177777", 1. MAX_UDP_CNT, YES ' OF WORDS IN USER DATA PATTERN 
GPRMD  <(SWa15, 12, 0. %0°177777". 0. %0'177777", NO, io). ' * PATTERN VALUES 
$L (SwW4): 


ENDSFT; 


EQ 0095 
CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 98:60:31 VAX-11 Bliss=16 V3=-555 age 
v01.0 REPORT CODING SECTION 8-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (6) 


ZSBTTL “REPORT CODING SECTION' 


14 

: THE REPORT CODING SECTION CONTAINS THE ‘*PRINTS'® CALLS THAT GENERATE 

: STATISTICAL REPORTS. THIS SECTION IS EXECUTED BY THE OPERATOR COMMAND 
: “PRINT OR BY THE PROGRAM MACRO ‘DORPT’’. 


GN 
co 
~o 


SSPLSSE 


BGNRPT ; 
BIND 


BS 
on 


ekeetkteeeeaeaneeeeee SUMMARY REPORT eeaneeeeecereeeeeeeneZn’), 


TIME: %D2%A:2%D2%A:2%D22N'), 


° ° NO. NO.*) 
READS WRITES MBYTES MBYTES HARD ERRORS, 
(K=1000) READ WRITTEN ERRORS LOGS"), 


A'S, 8g 


DOZAK") 
D9ZDBXD9%D7"), 
ZNINZAN SymBOL ECC ERRORS: 2N"), 


ZNZA ° 

ZNZAUNIT FIELD N= N= = = = N_= N="), 
ZNZA NO. ONLY 1 2 3 7 F 
ZNZD32D82D72D72D7"), 

%D7207%D7%D72D7"), 


ZA ° NO. NO.°), 
ZAUNIT READS WRITES SEEKS MBYTES MBYTES NO. HARD NO. SOFT"), 
(ZASCIZ"ZNZA NO. (K=1000) (K=1000) (k=1000) READ WRITTEN ERRORS ERRORS'), 


(ZASC I Z . IN eeee eeeeeeesn eeeeeee=2 9 seeeeees=2 8 ee eee rs 4] . ) 


%ASC1Z*%D9%D8%D10%D10"); 


me me ee ee ee ee ee ee ee ce ee ee ed ed eed ed ed od 
SESEBzszEsy 
NOUESWN— 


0 09 0d Cd 09 Co Co 09 Cd CO 
et ed ed ed od ad ad dd 


RRS 


OWN 
ADDR_LO; ! ADDR OF LOW-ORDER FIELD OF 1/0 COUNT 
ROUTINE HI_LO : NOVALUE = 


eee me me ee ed ee ee ee ee ee ed ed ed ad od ed 


RR 


+ 


THIS ROUTINE IS CALLED FROM THE MAINLINE CODE OF THE REPORT CODING 
SECTION WHICH APPEARS BELOW. ITS PURPOSE IS TO PRINT THE HIGH-ORDER 
FIELD OF ONE OF THE 1/0 COUNTS IF THE FIELD IS NON-ZERO. OTHERWISE, THE 
LOW-ORDER FIELD IS PRINTED. 


IMPLICIT INPUTS: 
ADDR_LO = ADDRESS OF THE LOW-ORDER FIELD OF AN I/O COUNT 


WN SO OONAUSWN—O OONOUSWN OO 


Saaaere 


uw 


0.900000 
DISA 


BEGIN 


LOCAL 
ADDR_HI; ! ADDR OF HIGH-ORDER FIELD OF 1/0 COUNT 


ADDR_HI = .ADDR_LO + 2; ! GET HIGH-ORDER FIELD ADDRESS 
ce EaLu 0 : LE rereues FIELD IS ZERO 


co 
Ww 


ke es ek ed at ot ot oe ot ot os ot ot I 


RRRREF 
MEW OO 
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SEQ 0096 
CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-555 Page 10 
v01.0 REPORT CODING SECTION 8-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (6) 


PRINTS (SR_LO, ..ADDR_LO) : as FIELD 
PRINTS (SR_HI, ..ADDR_HI); i PRINT HIGH-ORDER FIELD (THOUSANDS) 


END; ! ROUTINE HI_LO 


CZRCD2 CZRCDAO RC25 DISK EXERCISER 
/V01.0/ 


SCODES, RO 
LSDVTYP:: 


rere” eter 
No— Nu— 
SReRUNS 


Rs S$ 


-BL 
LSDESC:: 
A 


WNUWOW 


12 
10 
12 
12 


S 


/1SE/ 
ae 
LSHRDLN: : 


<<<LSNDHRD-LSHRDLN>/2>-1> 
GP$1:: 31 


GP$2:: 


GP$3:: 


-100000 
SEseRROE- SOE ea 


SSSeeeseessssss 
SRIERRNBRATSRRS 


HWQ6 
-100000 








G6 8 
SEQ 0097 
CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 O9:60:3! VAX-11 Bliss=-16 V3-555 Page 11 
v01.0 REPORT CODING SECTION 8-Jul-1983 17:46:34 ~DUA2: CDOUCETTE .CZRCDICZRCD2. SRC; 5 (6) 
SLHWDONE : 
. 1004 
LSNDHRD: : 


-BLKW 1 
LSSFITLN:: 

.WORD <<<LSNDSFT-LSSFTLN>/2>-1> 
GP$7:: 52 


GP$14:: a 
GPSDISP:: 
GP$15:: . 
GP$16:: 
ire 
$Swl: <<<<$LSW1-$SW1>*400>+4>+20> 
GP$17:: .WOR 4130 


SLSW1: 
GP$18:: 





SEQ 0098 

CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-555 Page 
v01.0 REPORT CODING SECTION 8-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (6) 
000312 000000C $SW2: .WORD  <<<<$LSW2-$SW2>*400>+4>+20> 
000314 004052 GP$19:: .WORD 4052 
000316 0000006 «WORD $wQ13 
000320 177400 «WORD 400 
000322 eWORD O 
000324 00002 «WORD 25 
000326 000000C $SW4: .WORD  <<<S$LSW4-$SW4>*400>+4> 
000330 001004 $LSW2: .WORD 1004 
000332 005052 GP$20:: .WORD 5052 
000334 eWORD SWQ14 
000336 177777 -WORD -1 
000340 000001 eWORD 1 
000342 000020 «WORD 20 
000344 006222 GP$21:: .WORD 6222 
000346 0000006 eWORD S$WwQ15 
000350 177777 «WORD -1 
000352 000000 eWORD 0 

354 177777 eWORD -1 
000356 000005 WORD 

360 001004 SLSW3: .WORD 1004 
000362 001004 $LSW4: .WORD 1004 
000364 LSNDSFT:: 

-BLKW «1 

000366 ADDR.LO:.BLKW 1 
000000 -PSECT SPLITS, RO, D 
000000 045 116 045 P.AAA: .ASCII /2NZ/ 
000003 101 052 052 ASCII = /At*/ 
000006 052 052 052 eASCII 3 /a%2/ 
000011 052 052 052 ASCII] = /e%/ 
000014 052 052 052 eASCI] = /ee%/ 
000017 052 052 052 eASCI] = /2%%/ 
000022 052 052 052 eASCII = /#%*/ 
000025 052 052 052 eASCII = /e%%/ 
000030 052 040 123 eASCII /* S/ 
000033 0 125 040 ASCII /U/ 
000036 115 040 115 ASCII /M M/ 
000041 0 101 040 ASCII /A/ 
000044 122 040 131 eASCII /R Y/ 
000047 040 040 040 ASCII / 
000052 122 040 105 ASCII /R E/ 
000055 040 120 040 eASCII / P/ 
000060 117 040 122 ASCII /0 R/ 
000063 040 124 040 eASCII /T/ 
000066 052 C52 052 ASCII] = /&2%/ 
000071 052 05¢ 052 ASCII = /eee/ 
000074 052 052 052 ASCII] = /ee%/ 
000077 052 052 052 eASCII = /eee/ 
000102 C52 052 052 eASCII /e2*/ 
000105 052 052 052 ASCII = /aee/ 
000110 052 052 052 eASCII = /aee/ 
000113 045 116 000 ASCII /%N/<00> 
000116 045 101 105 P.AAB: .ASCII /2AE/ 
000121 114 101 120 eASCII /LAP/ 
000124 123 105 104 ASCII /SED/ 


I 8 
RCISER 11-Jul-1983 08:42: 
8-Jul-1983 17:46: 


SEQ 0099 
VAX=-11 Bliss-16 V3-555 


D 51 Page 
34  _DUA2:CDOUCETTE.CZRCDICZRCD2.SRC;5 (6) 
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CZRCD2 CZRCDAO RC2 
v01.0 REPORT CODI 
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RRAREE 
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ERS 
AoOoono0—u1e 
P>Pr>Pr>rr> 
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ERR 
=RRIORRR 
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SSS SRS SSS 


>> Pr>> 
nn 


ANNVNMNWHUNUNMNHYUMM 
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4 


RRERREK 
SOOSSSO 
RRIRRLREKF 
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w” 
AOAOIIOIIHAOOOAAOA 


—t 
Sn 
>>rrrrrr>r>rp 
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-S 
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nAnnnnw 
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wr 
N“N SN 
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ESELTESS 
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SEQ it 
cZR( D2 CZRCDAO RC25 DISK — 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-5 Page 
v01.0 REPORT CODING SECTI 8-Jul-1983 17:46:34 _DUA2: CDOUCETTE. WFRCDICIRCD2. SRC;5 (6) 

000162° SR.MH1= P.AAC 
000256' SR.MH2= ~AAD 
000354' SR.MH35= ° 
50° SR.MH4= . 
000550° SR.UN= P.AAG 
000556° SR.LO= P.AAH 
000566' SR.HI= P.AAI 
000576" SR.ML= P.AAJ 
000614° SR.EH1= P.AAK 
52° SR.EH2= P.AAL 
000672° SR.EH3= P.AAM 
1002" SR. EHS4= P.AAN 
001110" SR.EHS= P.A 
001222" SR.EL1= P.A 
1244'° SR.EL2= P.AAQ 
001264' SR.DH1= P.AAR 
30° SR.DH2= " 
001444" SR.DH3= P. 
001560" SR.DH4= P.AAU 
001676" -DL= AAV 
-SBTTL HI.LO REPORT CODING SECTION 
000370 -PSECT S$CODE$, RO 
000000 013700 000366' HI.LO: MOV ADDR.LO,RO 3; *,ADDR.HI 
000004 062700 000002 ADD #2,R0 3; *,ADDR.HI 
000010 005710 TST (RO) 3 ADDR.HI 
000012 001011 BNE 1$ 
000014 017746 177756 MOV @ADDR.LO,-(SP) 8 
000020 012746 000556' MOV #SR.LO,-(SP) 
000024 012746 000002 MOV #2,-(SP) 
000030 010600 MOV SP,RO 3; SP,* 
000032 104416 TRAP 16 
000034 000407 BR 2s 3 
000036 011046 1$: MOV (RO) ,-(SP) ; ADDR.HI,* 
000040 012746 000566' MOV #SR.H1.=(SP) 
000044 012746 000002 MOV #2,-(SP) 
000050 010600 MOV SP,RO 3: SP,* 
000052 104416 TRAP 16 ‘i 
000054 062706 000006 2$: ADD #6,SP 3 
000060 000207 RTS PC 3 
: Routine Size: 25 words, Routine Base: S$CODE$ + 0370 
: Maximum stack depth per invocation: 5 words 
: 1851 
: 1852 f!fthtttttttttet REPORT CODING SECTION = MAINLINE CODE !!!ifiitieseeeeereeriegy 
: 1853 
3 1854 LOCA, 
: 1933 : REF BLOCK CTALLY_LEN) FIELD (T_FIELDS); ' ADDRESS OF A UNIT'S TALLY BLOCK 
: 1857 PRINTS (SR_HD); ' SUMMARY REPORT HEADER 
s 1858 PRINTS (SR- ET, HOURS, roe ay HS SECONDS); i ELAPSE 
; H+ +44 Yi TST” (SWP_FLAGS, SWF_DM) Vee ok DM EXERCISER IS BEING RUN 
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SEQ hy 
czRCd2 care. 5H DISK_EXERCISER 11=Jul=1 : VAX-11 Bliss-16 V3-555 Page 21 
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BEGIN 


af pl (SR DI); ! PRINT HEADER FOR DM EXERCISER STATS 


SERSSTERE 


s 
m0 0 


INCR ! FOR EACH UNIT 
BeGIN 
= TALLY + (.UNIT * TALLY_LEN * 2);  ! CALCULATE UNIT’S TALLY BLOCK ADDR 
PRINTS (SR_UN, .UNIT); ! PRINT UNIT NUMBER 
a LO = TA CREAD_LOJ; ! SET LOW-ORDER ADDR OF READ COUNT 
H ITHER LOW= OR HIGH-ORDER FIELD 
ADB Lo = = .ADDR_LO + 4; IT 


Q; } 
ADBR LO = .ADDR_LO + 4; ! ADVANCE EK C 
1.6 0; ! PRINT EITHER LOW- OR HIGH-ORDER FIELD 


PRINTS (SR_DL, .TA CMB_READ], .TA CMB_WRITJ, .TA CER_HRDJ, .TA CER_SFTIJ); 
END; ! UNIT LOOP 
END 
E 
BEGIN 


PRINTS (SR_ ; ! PRINT HEADER FOR MULTI-DRIVE 
af ok (SRF ; : SUBTEST BASIC STATS 
PRINTS (SR_ 

INCR UNIT FRO ! FOR EACH UNIT 


ce a kk a kk td dd 
0000000000 
AANNNN 
Uw 


SS 
NO 


= 
‘ooo 


! ELSE = MULTI-DRIVE SUBTEST IS BEING RUN 


TA = TALLY + (.UNIT * TALLY_LEN * 2);  ! CALCULATE UNIT°S TALLY BLOCK ADDR 
PRINTS (SR_UN, .UNIT); ' PRINT UNIT NUMBER 


as LO = TA CREAD_LOJ; ! SET LOW-ORDER ADDR OF READ COUNT 
Q; ! PRINT EITHER LOW= OR HIGH-ORDER FIELD 
ADDR LO = .ADDR_LO + 4; ' ADVANCE TO LOW-ORDER ADDR OF WRITE COUNT 
HILO QO; ! PRINT EITHER LOW- OR HIGH-ORDER FIELD 
PRINTS (SR_ML, .TA CMB_READ], .TA CMB_WRIT], .TA CER_HRDJ, .TA CER_LOG)); 
END; ! UNIT LOOP 


PRINTS (SR_EH1); ! PRINT HEADER FOR ECC ERROR STATS 


GSSSSPOGOSSB eRe es ees 


ad i EHS) 
INCR RM T FROM é TO (.LSUNIT = 1) DO ! FOR EACH UNIT 


UNIT : TALLY LEN*® 2); ! CALCULATE UNIT? 5. TALLY BLOCK ADDR 
? A TECC_ONLYS, .TA CECC_1], C 2), .TA CECC_3)); 
2 lect "A, TA CECC_5), th “fece’ — i “teec 71, .TA CECC_8)): 


— ae HN I Oo HV SS SI SS 
Seeeessesssssssss3s 


NAMUESWMN—OOON 





ee ee ee ey 
fMororononn 
USWN—OO0E 
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SEQ 0108 
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END; ! UNIT LOOP 
END; 
PRINTS (CRLF); ' PRINT <CR><LF> 
ENDRPT; 
.SBTTL LRPT REPORT CODING SECTION 
0000006 LRPT: JSR 1, : 1788 
000000° MOV #SR.4D,=(SP) : 1857 
000001 MOV #1,-(SP) 
V SP,RO 3 SP,* 
TRAP 3s *16 
0000006 MOV SECONDS, (SP) : 1858 
0000006 MOV MINUTES, -(SP) 
MOV HOURS ,-(SP 
000116" MOV #SR.ET,-(SP) 
MOV #4 ,-(S 
MOV SP-RO : SP,* 
000002 0000006 8! 78 #2.SWP.FLAGS : 1859 
001264" MOV #SR.DH1, (SP) : 1863 
000001 MOV #1,-(SP) 
MOV SP,RO 3: SP,* 
TRAP 16 
001330" MOV #SR.DH2, (SP) : 1864 
000001 MOV #1,-(SP) 
MOV SP.RO : SP,* 
TRAP 
001444" MOV #SR.DH3, (SP) : 1865 
000001 MOV #1,-(SP) 
MOV SP-RO : SP.* 
TRAP 
001560" MOV #SR.DH4, (SP) : 1866 
000001 MOV #1,-(SP) 
MOV SP.RO : SP,* 
TRAP =-:'16 
0000006 MOV LSUNIT,R3 ; 1867 
CLR R1 > UNIT 
BR 2$ 
1$: MOV R1, (SP) : UNIT,* 1870 
000060 MOV #60,-(SP) 
0000006 JSR PC ,BLSMUL 
0000006 ADD #TALLY,RO 
MOV RO eRe) : UNIT 1871 
e 3 * 
000550° MOV #SR.UN,-(SP) 
000002 MOV #2,-(SP) 
MOV SP.RO : SP,* 
TRAP 
000366" MOV R2,ADDR.LO ; TA,* 1873 


70° JSR PC,HI.LO : 1874 
000004 000366' ADD #4, ADDR.LO : 1875 


czRCd2 
v01.0 


SeneeeeeerS 


22323024— 
uw rr 
RIESRI= 
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CZRCDAO RC25 DISK EXERCISER 
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F 9 


11-Jul-19 
8-Jui-19 


PC,HI.LO 
#4,ADDR.LO 
PC,HI.LO 


8$ 
#SR.MH1, (SP) 
#1.=(SP) 


#SR.MH2, (SP) 
#1,-(SP) 


16 
#SR.MH3 


(SP) 
#1,-(SP) 
0 


e 


16 
#SR.MHG, (SP) 
#1.=(SP) 


LSUNIT,R3 
R1 

5$ 

R1, (SP) 
#60,-(SP) 

PC ,BLSMUL 
#TALLY,RO 
RO, 

R1, (SP) 
#SR.UN,-(SP) 


on(S 


16 
R2,ADDR.LO 
PC,HI.L 

#4 ,ADDR.LO 


242: 
246: 


VAX-11 Bliss-16 V3-5 
DUA2: CDOUCETTE.CZRCD 


55 a 
JCZRCD2.SRC;5 6 


SEQ 0109 
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000020 AD #20,SP ; 1893 
R1 : UNIT 
R1,R3 ; UNIT,* 


000614 #SR.EH1, (SP) : 1907 
000001 #1.=(SP5 


e2238 
x 


000652" #SR.EH2, (SP) : 1908 
000001 #1,-(SP5 


=-Coo0—900 
par par 


#SR.EH3, (SP) : 1909 
1,-(SP5 


#SR.EHS 
#1,-(SP5 


#SR.EHS 
#1,-(SP) 
SP-RO 


rune 


(SP) 


ob ed at 


=-Co0o—o0°0 
g 


rs 
Aan 


(SP) 


o-000 
—_ — ot oD 
Boks 
NS 
Ss= 
WO 


LSUNIT ,R3 
R1 


88 


7$ 
R1, (SP) 
#6b.=(SP) 


PC,BL 
#TALLY,RO 
RO,R2 
42(R2), (SP) 
40(R2) ,-(SP) 


36(R2) ,-(SP) 
56(R2) ,~(SP) 


R1,-(SP 
#SR.EL1,-(SP) 
#6,-(SP5 


oo 
a= 
mo 


1 
54(R2) , (SP) 


#12,SP 
#CRLF, (SP) 
#1,-(SP) 
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SEQ a 
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010600 SP,RO : SP,* 
104416 TRAP 1 
001006 062706 000026 ADD #26,SP 
001012 000207 RTS PC 


3 Routine Size: 262 words, Routine Base: SCODE$ + 0452 
3; Maximum stack depth per invocation: 34 words 


-SBTTL LSRPT REPORT CODING SECTION 
000000 004737 000452’ LSRPT:: JSR PC,LRPT 
000004 104425 TRAP 
000006 000207 RIS PC 


; Routine Size: 4 words, Routine Base: SCODES + 1466 
> Maximum stack depth per invocation: 2 words 
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SEQ 0112 
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ZSBTTL ‘INITIALIZE SECTION’ 


'¢ 


THE INITIALIZE or IS EXECUTED UNDER FIVE CONDITIONS. THERE ARE 
SUPERVISOR EVENT FLAGS THAT ARE USED TO LET THE DIAGNOSTIC KNOW UNDER 


‘ 

: WHICH CONDITION THE EXECUTION is. TAKING PLACE. THE EVENT FLAGS GS. ARE 

: READ USING THE "READEF’’ MACRO. THE CONDITIONS UNDER WHICH THE INIT CODE 
: IS veaneg| 7A 7 THE CORRRESPONDING EVENT FLAGS ARE: 

: START COMMAND e START 

: RESTART COMMAND EF RESTART 

: CONTINUE COMMAND EF . CONTINUE 

: ey ° 

: NEW PASS EF .NEW 

: EXAMPLE OF EVENT FLAG USE: 

: IF READEF (EF. a THEN START FLAG = 1; 

; DURING THE INIT CODE, THE "‘GPHARD'' MACRO IS USED TO OBTAIN P-TABLE 

; INFORMATION FOR ot. bevices. THE NUMBER OF UNITS AVAILABLE IS IN THE 
: HEADER WORD *‘LS$UNIT’ 

BGNINIT; 


LOCAL 
FLAG] : BYTE, 
FLAG2 : BYTE, 
ak AR MULT : WORD, 
uP AREF : REF BLOCK CHWPT_LEN, WORD] FIELD (HWP_FIELDS); 


SETPRI (PRIO7); PRIORITY 7 = NO INTERRUPTS ALLOWED DURING INIT 
IF READEF (EF_NEW) IS er | A_NEW PASS? (ASK NEW PASS 
FIRST IN CASE MULTIPLE FLAGS ARE 
ENTRY_REASON = NEW_PASS; 


SET, E.G., START AND NEW_PASS) 
IF _READEF (EF _CONTINUE) IS THIS A CONTINUE? 
ENTRY_REASON = CONT; 


IF READEF (EF_PWR) 
THEN 


IS THIS A POWER FAIL? 


Br eRY REASON = PWR_FAIL 
IF MANUAL shins 


IF ATTENDED 

THEN 

"POWER DELAY = WAITING’’ 
WAIT APPROX. 60 SECONDS 


HEN 
PRINTF (MSG_01); 
INCR COUNT FROM 0 TO 60 DO 


DELAY_MULT = 333; 
DELAY” (.DELAY_MULT); 
BREAK; ! BREAK FOR ACT 
END; 

END; 


IF READEF (EF_RESTART) 


IS THIS A RESTART? 


czRCd2 
v01.0 


so 
oo 
Ww 


Sosgeeseessesesesees 
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CZRCDAO RC25 DISK EXERCISER eet tS 08:4 
INITIALIZE ze CTION 8-Jul-1983 1 


SEQ “re 
2:51 yt Bliss-16 V3-555 Page 
7:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2. SRC; 5 (7) 


THEN 
ENTRY_REASON = RESTART; 


— (EF START) ! IS THIS A START? 
BEGIN 
ENTRY_REASON = START; 
all = MINUTES = SECONDS = TICKS = 0; ! INIT ELAPSED TIME TO 00:00:00:00 
'+ 
: MAKE SURE ig & NOT MORE THAN MAX_UNITS HAVE BEEN SPECIFIED. 
: IF THERE ARE TOO MANY, NOTIFY USER AND RETURN TO SUPERVISOR. 
: (DIAGNOSTIC IS ABORTED). 


IF .LSUNIT GTRU MAX_UNITS 
THEN 


BEGIN 

ERRSF (1, EGS_01, EMS_01); ' "'T00 MANY UNITS" 

END; - 
t+ 
i CHECK TO MAKE SURE THERE IS A CLOCK ON THE SYSTEM. IF NO_CLOCK, 
i THEN ABORT TO SUPERVISOR. OTHERWISE, DETERMINE WHETHER CLOCK IS 
i AN L OR P CLOCK, AND SET UP PARAMETERS. 
CLK_TYPE = NO_CLOCK; ! SET FLAG FOR NO CLOCK 


— (P, CLK_ADR) IS THERE A P_CLOCK? 


SET TYPE TO P_CLOCK 


BEGIN 
CLK be ig P. tace 
CLK SAVE THE CSR ADDRESS 


= _ogttk 


CLR. eer xo"105"s ' ENABLE INTERRUPTS 
ELSE 
BEGIN 
IF CLOCK (L, CLK_ADR) ! IS THERE AN L_CLOCK? 
N 

CLK_TYPE = L_CLOCK; ' SET TYPE TO L_CLOCK 
CLK~CSR = ..CLK_ADR; ' SAVE THE CSR ADDRESS 
-CLR_CSR = %0°100'; ' ENABLE INTERRUPTS 

END; 


IF ,CLK_TYPE EQLU NO_CLOCK IF NO CLOCK WAS FOUND 


BEGIN 
ERRSF (2, EGS_92, 0); “NEITHER P_ NOR L CLOCK WAS FOUND" 
peeeits ! ABORT THE PROGRAM 
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SEQ “a 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 99:4 42:51 VAX-11 Bliss=16 V3-555 Page 
INITIALIZE ec CTION 8-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (7) 


BEGIN 
CLK_VECTOR = .(.CLK_ADR + 4); : CLOCK vecre ADDRESS 
CLK-HERTZ = .(.CLK_ADR + 6); ! CLOCK HERTZ RATE 

SEIVEC (.CLK_ VECTOR, CLK, INT_ SERV, PRI06); ! SET CLOCK VECTOR ADDR 


THE FOLLOWING CODE IS EXECUTED FOR ALL ENTRY REASONS EXCEPT NEW_ A 4 
ALL RUN-TIME CONTROLLER STATUS TABLES (CST'S) ARE CLEARED TO 0, THEN 
LOADED WITH CONFIGURATION DATA FROM THE HARDWARE P-TABLES. 
IF .ENTRY_REASON NEQU NEW_PASS 
THEN 
BEGIN 


INCR wets FROM y, TO ((MAX_CTLR * CST_LEN * 2) = 2) BY 2 DO 
(CST + .COUNT) = 0; 


a FROM 0 TO (.LSUNIT = 1) DO ! LOOP THROUGH ALL UNITS 





IT] ! INIT CURRENT PASS TESTING VECTOR 
(. ! IF HWP TABLE FOUND 


cPT C.UNIT] = 
IF GPAARD UNIT! HWPT_REF) NEQA 0 
THEN 


BEGIN 
FLAG! = O EXISTING IP ADDRESS MATCH YET 
weg”: ~ R FROM O 0 fo (MAX_CTLR = 1) 06 H LOOP THROUGH ALL CST'S 


IF .CST C.CTLR, IP_ADDR] EQLA arr REF CHWP_IP_ADDRI 
sy IF IP ADDR “ALREADY EXISTS 


ped ores 
LAG2 = FOUN ! FLAG INDICATING PLATTER SLOT AVAILABILITY 
INR OF SE FROM. io + OF_UN) TO (3 + OF_UN) DO ! LOOP THROUGH EACH PLATTER SLOT 


a -CST C.CTLR, .OFFSET, P PRES] EQLU NOT _ PRESENT 
THE accin ! ITF EMPTY SLOT FOUND 


AG2 = FOUND; 
cSt C.CTLR, .OFFSET, /ALLBIT .HWPT_REF CHWP_PLAT); 
t COP LATTER ADDR AND PROT BIT 
CST C.CTLR, OFFSET, T; 


PUNT It's UN 
CST C.CTLR, .OFFSET, P_PRESJ = PRESENT; 
EXITLOOP; 


END ! END = IF PLATTER SLOT FOUND 
ae ! OTHERWISE = SLOT IS OCCUPIED 


IF .CST C.CTLR, .OFFSET, P_ADDR] EQLU .HWPT_REF CHWP_PLAT_ADDR) 


cZRCD2 CZRCDAO RC25_ DISK EXERCISER 
v01.0 INITIALIZE SECTION 

THEN 
BEGIN 


FLAG2 = FOUND; 
IF MANUAL 


THEN 
PRINTF (CE 
WPT 


oo 


oooo 


ITLOOP; 
END; 
END; 
IF .FLAG2 EQLU NOT_FOUND 
THEN 
BEGIN 
IF MANUAL 
HEN 
PRINTF _(CER_02, .H 
DUR C.UNIT] = DO_CONF 
DODU (.UNIT); 
END; 
EXITLOOP; 
END; 
END; 
IF _.FLAG1 EQLU NOT_FOUND 
BEGIN 


FLAG2 = NOT 
INCR CTLR F 
BEGIN 


eee ee ce ee ee ce eee ce ee ee ed me ed ed ed ed ed ed ed ed ed aed od od ed 


WWWIWIWIRINININININPO NUNINID 2 2 OO Oe Oe 


FOUND; 
ROM 0 TO (MAX_CTLR 


POPOPOPOPONONONOPONONONOPDNDNONONDNY NONININDNYNININNINDNI NPN NoNNgngnynony 


— a ss I HSI I OS 


IF .CST C.CTLR, IP_ADDR] E 
THEN 
BEGIN 


P1_ALL]_= 
P1~UNITJ 
P1~PRES) 


PoNanoNonoNnononongNnonony 

Oke ed ed ad ed ed od ed ed 
MUMMIES BERR OW 
Wh -OO0on 


L 9 


11-Jul-198 
8-Jul-198 


SEQ 0115 
5 


242: a 
Jczrco2.sRC:5 (7) 


346: 


VAX-11 Bliss-16 V3-55 


0 
1 DUA2: CDOUCETTE .CZRCD 


? 


3 
3 


! PLATTER ADDR SLOT ALREADY EXISTS 
; IF ATTENDED 
D 


i THEN 
CHWP_PLAT_ADDRJ, 
}); ' DUPLICATE PLATTER ADDRESS XXX. AT IP XXXX 
i LOAD REASON FOR DROPPING UNIT 

i DON'T LOOK AT ANY MORE SLOTS 
! IF PLATTER ADDR ALREADY EXISTS 
! IF SLOT IS OCCUPIED 

! PLATTER SLOT SEARCH LOOP 


! IF PLATTER SLOT NOT AVAILABLE 


R_O1, .HWPT_REF 
REF CHWP_IP~ADDR 
DU_CONF ; 


: IF ATTENDED 


i H 
WPT_REF CHWP_IP_ADDR]); ! ‘‘ALREADY 4 UNITS AT IP XXXXXX(O)"° 
: oo ERROR 


! IF EXISTING CST TABLE FOUND 
! CST TABLE SEARCH LOOP 
! IF NO IP ADDR MATCH TO EXISTING CST 


! FLAG INDICATING EMPTY CST AVAILABILITY 
1) DO ! LOOP THROUGH EACH CST 


QLA 0 ! IF EMPTY CST FOUND 


-HUPT REF CHWP_PLAT]; !PLAT ADDR, PROT BIT 
PRESENT; 
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CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42: 
INITIALIZE SECTION 8-Jul-1983 17:46: 


SEQ 0116 
51 VAX=-11 Bliss-16 V3-555 Page 
34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (7) 
END; ! IF EMPTY CST FOUND 
END; ! EMPTY CST SEARCH LOOP 
c= EQLU NOT_FOUND ! IF NO EMPTY CST FOUND 
BEGIN 


AAQCQUMUIMVIW 


000009 09 INI N SN NN NOAA OO 


THEN : IF ATTENDED 
PRINTF (CER_03, MAX_CTLR); ! "MORE THAN X DIFFERENT IP ADDRESSES."' 
DUR C.UNIT] = DO_CONF; ! CONFIGURATION ERROR 
DODU (.UNIT); ! DROP UNIT 
END; 
END; ! IF NO IP ADDR MATCH IN CST 
END; ! IF GPHARD RETURNED A HWP TABLE 
END; ! UNIT LOOP 
END 
ELSE ! OTHERWISE, FOR EACH NEW PASS 
BEGIN 


ee FROM G TO (.LSUNIT - 1) DO ! FOR EACH UNIT 


ee ee Se es ee) 


4 — (UNIT, HWPT_REF) NEQA 0 : — HAS NOT BEEN DROPPED 
BEGIN ‘ 


CPT C.UNIT] = YE 


S; ! 0.K. TO TEST UNIT 
ona FROM 0 TO (MAX_CTLR = 1) DO $F 


° E 
IND UNIT'S CONTROLLER 
4 aad C.CTLR, IP_ADDR] EQLA .HWPT_REF CHWP_IP_ADDR] 

BEGIN ! FOUND IT 


CST C.CTLR, U_CNTJ = .CST C.CTLR, U_CNTJ + 1; ! INCREMENT NO. OF TESTABLE UNITS 
EXITLOOP; ! DONE 


END; 
END; ! CONTROLLER LOOP 
END; ! IF UNIT NOT DROPPED 
END; ! UNIT LOOP 
END; ! END = IF NEW PASS 
IF _.ENTRY_REASON LEQU RESTART ! IF START OR RESTART 
THEN ! THEN 


NoPoPoPoNoNononononononononononofo fonofonononono nono ononononononoronononsnorororonn 
ee ed aed ed ed ed ed ed 


cme ee ed ed ed ed ed nd oe od =) = 


10000 000000000 
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SEQ 0117 
CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss=-16 V3-555 Pa 
v01.0 INITIALIZE SECTION 8-Jul-1983 17:46:34 _DUA2:CDOUCETTE..CZRCDICZRCD2.SRC;5 (7) 


BEGIN 
= 0; ! COMMAND REFERENCE NUMBER 
CTLR_CNT = 0; ! NUMBER OF CONFIGURED CONTROLLERS 
INCR-CTLR FROM 0 TO (MAX_CTLR = 1) DO 
BEGIN 
o~ C.CTLR, IP_ADDR] NEQA 0 : 4 _——— IS PRESENT 
CTLR_CNT = .CTLR_CNT + 1; i INCREMENT CONTROLLER COUNT 
END; 


MEMORY (FREE_MEM_ADDR) ; ! GET START OF FREE MEMORY 
MEM_SIZE = ..FREE_MEM M_ADDR; ! GET FREE MEMORY SIZE 


INCR COUNT FROM 0 TO ((MAX_UNITS * TALLY_LEN) = 1) DO ! INITIALIZE 
TALLY C.COUNT] = 0; ! STATISTICS 


END; ! END OF START/RESTART INITIALIZATION 


rononornonornonoferoer 
roronorfroronofrerers 
te td td od od 
WOONAUSWN— 


Nm 
Nm 
So 


'¢ 


MISCELLANEOUS INITIALIZATON 


INCR Asad soph , 4 (MAX_CTLR = 1) DO ! INITIALIZE NO. OF OUTSTANDING QI0S 
INCR COUNT FROM 0 TO (RP_CNT = 1) DO ! INITIALIZE RETURN PACKET POOL 
RP_USE C.COUNT T] = -1; 


10DQ 1h = 10DQ_OuT = 0; : st 1/0 DONE QUEUE POINTERS 

IF (BIT. TST (SwP_ FLAGS, SWF _HWC)) AND ! IF USER CHANGED FROM HOST  lcicency TO 
(BIT_TST (SwWP FLAGS, SWF ~cwC))) H CONTROLLER WRITE-CHECK 
N ! THEN (BOTH BITS WOULD BE SET 1) 

SWP_FLAGS <SWF_PHWC,1> = 0; ! CLEAR HOST WRITE-CHECKS 


'¢ 

: THE FOLLOWING Pe ectum (STARTING TRACK NUMBER GREATER THAN ENDING 

; TRACK NUMBER) CAN OCCUR DUE TO ANOTHER DRS BUG. IF THE USER ENTERS LOW 
; TRACK LIMITS FOR R ONE PASS, THEN ENTERS A HIGH STARTING TRACK NUMBER 

: AFTER A RESTART OR CONTINUE COMMAND, DRS WILL NOT GIVE ; ERROR IF by 
: ENDING TRACK NUMBER IS DEFAULTED TO THE PREVIOUS LOW TRACK NUMBER. 

: ayy ag LON WOULD BE GENERATED IN QIO_LBN IF THIS SITUATION WERE 

' 


IF .SWP_STRACK GEQU .SWP_ETRACK 
THEN 


BEGIN 


LOCAL 
TEMP : WORD; 


TEMP = .SWP_STRACK; ! REVERSE STARTING AND ENDING 
SWP_STRACK = .SWP E TRACK; : TRACK NUMBERS 
SWP-ETRACK = . TEMP; 


END; 





czRCDd2 
0 


ENRRVANVSKRSS 


SSeSeseesseesessss 
Ssessescs 


‘ ae RC25 ot EXERCISER 


Z K 
NITIALIZE SECTION 


SETPRI (PRIOO); 
ENDINIT; 


0000006 


0000006 


0 
4 000004 0000006 


32 3 E> 


7 
0000006 
000001 


000075 
000515 


0000006 
000006 


000037 


sale 0000006 
00004 


000001 06900006 
0000006 
0000006 


8 10 


Vesul 1983 08:6¢:3) VAX-11 Bliss=16 V3-555 
8-Jul=1985 17: 


EQ 0118 
: P 32 


a 
46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (ye 


! SET PROGRAM PRIORITY TO 0 


LSDLY 


LINIT INITIALIZE SECTION 
R1,$SAVE5 

#10,SP 

#346,R0 

#35,R0 

47 

1$ 

#5, ENTRY.REASON 
#36,RO 

2s 

#3, ENTRY.REASON 
#34,RO0 


9$ 
na con 


ct] 
#MSG.01,-(SP) 

#1,-(SP) 

$0 -RO ; SP,* 
(SP)+, (SP)+ 

#75,R2 ; *, COUNT 

: *,DELAY.MULT 

: DELAY.MULT,SSTMP2 
: *,$STMP1 


; SSTMP 
; SSTMP1 
; SSTMP2 


: COUNT 
10$ 
#2, ENTRY..REASON 
#40,RO 


11$ 

#1, ENTRY .REASON 
TICKS 

SECONDS 





cZRCD2 
0 


5037 
5037 
aiet 


s2088 


ooo°o]—6 
at ot OO 
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CZRCDAO RC25 DISK EXERCISER 
INITIALIZE SECTION 


0000006 
0000006 


0000006 000020 11$: 


0000006 12$: 


000720 


000001 0000006 
000105 0000006 


000114 13$: 


177777 0000006 
0000006 
000100 0000006 
0000006 


000004 0000006 15$: 


000006 0000006 
000300 


000000v 
0000006 
000003 


06 000010 


o=-0o—S0°0°0 —OS00—00000°O°O—> 
Shege gas cuescuuatreeeuaase 
arn NSN“ NNVNAAANAAQAANN A & ~ 


0000006 16$: 


0000006 000005 
003002" 


17$: 
0000006 18$: 


000002 
000066 


002770° 


0000006 19$: 


000004 


14$: 


C 10 
11-Jul-1983 08: 
8-Jul-1983 17: 
MINUTES 
HOURS 
LSUNIT #20 
12$ 
54 


1 
EGS.01 
EMS.01 


-CLK.CS 
#05. *@cLk.CSR 
#114,R0 

62 

14s 

rad bx. TYPE 

(R15, CLK.CSR 

#100, aCLK.CSR 
CLK. TYPE 

54 

2 

EGS.02 

0 

44 


16$ 
4(R1), pre-Macree 
GAN) 66 K HERTZ 


as 
#CLKINT, SERV, -(SP) 
CLK.VECTOR, oa (SP) 


ol 
e 


#10,SP 
LSUNIT, (SP) 

(SP 
ENTRY.REASON, #5 
17$ 

37$ 

RO 

CST(RO) 

#2,R 

RO. #66 

18$ 

R4 


35$ 
Ae 


4 
RO,4(SP) 


VAX-11 Bliss=16 V3-5 


Be Se Se Se Se Se 


COUN 
; * (COUNT) 
* , COUNT 


555 Page 
DUA2: CDOUCETTE..CZRCDICZRCD2.SRC;5 (7) 


RO,CLK.ADR 
CLK.ADR,* 


RO,CLK.ADR 
CLK.ADR,* 


*(CLK.ADR),* 
*(CLK.ADR),* 


T 


OUN 
COUNT, * 
UNIT 


*(UNIT) 
UNIT,* 


* ,HWPT REF 


cZRCD2 
v01 


3 3 geeee8 
RLASFEN 


NO 


CZRCDAO RC25 DISK EXERCISER 
INITIALIZE SECTION 


002766' 


000016 
0000006 


0000006 000004 


000010 
000001 0000006 


D 10 


11-Jul-19 
8-Jul-19 


R3 
R3,-(SP) 
#16,-(SP) 


PC, BLSMUL 
(SP)+. (SP)+ 
CST (RO) ,@4(SP) 


RO,6(SP) 
(SP)+, (SP)+ 
#3,R1 
R1.RO 
a RO 
#CST 
eeo00G. (RO) 
23$ 
#1,R2 
4 (SP) .=(SP) 
a(SP)+, (RO) 
Rae (SP) 
§360377, (SP) 
#17400, (RO) 
(SP)+, (RO) 
#4000 006. (RO) 
6$ 
4(SP) ,-(SP) 
#6, (SP 
(RO) ,a(SP)+ 
25$ 
#1,R2 
50 


24$ 
net 27 (SP) 


(SP) 
#CER.01,=(SP) 
#3,-(SP) 
SP<RO 


#10,SP 
#1,DUR(R4) 
R4,RO 


; FF 
; OFFSET,* 


SEQ 0120 


VAX=-11 Bliss-16 V3-555 age 
_DUA2: CDOUCETTE. CZRCDICZRCD2.SRC;5 (7) 


; FLAG! 
; CTLR 
; CTLR,* 


; *,HWPT.REF 
; *,FLAG1 


FLAG2 


; CTLRS * 


* ,OF FSET 


; *,FLAG2 


HWPT REF ,* 


; UNIT,* 


; HWPT.REF ,* 


; *,FLAG2 


; HWPT.REF,* 


HWPT REF, 


; *(HWPT. REF), * 





E 10 
SEQ ore" 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08: VAX-11 Bliss=16 V3-555 Page 
INITIALIZE ec CTION 8-Jul-1983 1 : DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (7) 


E 
26$: R2 ; FLAG2 
BNE 


27$ 
a4(SP) (SP) : HWPT.REF,* 
CER 08. =(SP) 


SP RO ; SP,* 
17 
#6,SP 
#1,DUR(R4) ; *,*(UNIT) 
RS RO > UNIT,* 
; CTLR 
; CTLR,* 
; FLAG! 
; FLAG2 
RO 3; CTLR 
0000006 : ; *(CTLR) 
BN 31$ 
000001 
660 000004 0000006 
000004 


000002 
77000 


* ,FLAG2 

HWPT REF ,*(CTLR) 
HWP « o* 

* (HWPT.REF),* 


1 77000,R1 
000777 0000026 ; *,*(CTLR) 
0000026 R 


R1, cotvec 0) 


R3.R1 
60 000004 0000046 (RI) CST+4(RO) 
0000066 MOV $T+6,R3 
RO R3 
(sp), R1 


000004 MOV & 

000006 6(R1),(R3) 
R4,R1 
160377 160377,R1 
017400 #17400 (R3) 


(R35 
040000 I #46000, (R3) 


B 
000016 : ie, RO 
000052 #52 

08 

R2 

34$ 

50 


*,*(CTLR) 

HWPT REF ,* 
*(HWPT.REF) ,*(CTLR) 
CTLR,* 


HWPT REF, 
* (HUPT. REF). * 
UNIT,* 


SEE RET Sta 


Mohonofonorory 


as 
SUS 


AOLVOLOS 


ee ek ee ed ed ed ed ot ed ot 2 ot DD 
N 
Monon 


SSSSSS8SsSSssssssssssss 
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SEQ 0122 

CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-555 Page 
v01.0 INITIALIZE SECTION 8-Jul-1983 + 46:34  _DUA2:CDOUCETTE.CZRCDICZRCD2.SRC;5 (7) 
001256 112764 000001 0000006 33$:  MOVB #1,DUR(R4) 5 «.ctmat 
001264 010400 MOV R4,RC + UNIT,* 
001266 104451 TRAP ss 51 
001270 005204 34$: INC RS 3: UNIT 
001272 020416 35$: CMP R4, (SP) + UNIT,* 
001274 003002 BGT 368 
001276 000137 002200° JMP 19$ 
001302 000432 36$: BR 43$ ; 
001304 005002 37$: CLR R2 + UNIT 
001306 000426 BR 42$ 
001310 010200 38$: MOV R2,RO : UNIT,* 
001312 104442 TRAP = 42 
001314 010066 000004 MOV RO,4(SP) : *,HWPT.REF 
001320 001420 BEQ 
001322 112762 000001 0000006 MOVB #1, CPT(R2) 3 *,* (UNIT) 
001330 005000 CLR R + CTLR 
001332 026076 0000006 000004 39s: CMP CST(RO) ,@4(SP)  &(CTLR) ,HWPT.REF 
001340 001003 BNE 
091342 105260 0000056 INCB  CST#5(RO) : *(CTLR) 
007346 000405 BR 41$ ; 
001350 062700 000016 40$: ADD #16,RO : *,CTLR 
001354 020027 000052 CMP RO,#52 : CTLR,* 
001360 003764 BLE 39$ 
001362 005202 41$: INC R2 : UNIT 
001364 020216 42$: CMP R2, (SP) + UNIT,* 
001366 003750 BLE 
001370 123727 0000006 000002 43$: CMPB —_— ENTRY. REASON, #2 : 
001376 101034 BHI 47$ 
001400 005037 0000006 CLR ; 

404 005037 0000006 CLR CTLR.CNT F 
001410 005 CLR R + CTLR 
001412 005760 0000006 44$: TST CST(RO) > #(CTLR) 
001416 001402 BEQ 
001420 005237 0000006 INC CTLR.CNT : 
001424 062700 000016 45$: ADD #16 RO : *,CTLR 
001430 020027 000052 CMP RO,#5 : CTLR,* 
001434 003766 BLE 44$ 
001436 1044.31 TRAP = 31 ; 
001440 010037 0000006 MOV RO, FREE .MEM.ADDR 
001444 011037 0000006 MOV (RO) MEM. SIZE : FREE.MEM.ADDR,* 
001450 005000 CLR R : COUN 
001452 005060 0000006 46$: CLR TALLY (RO) + * (COUNT) 
001456 062700 000002 ADD #2,RO > *,C 
001462 020027 001376 CMP RO.#1376 : COUNT,* 
001466 003771 BLE 46$ 
001470 005000 47$: CLR RO : CTLR 
001472 105060 0000006 48$:  CLRB QI10(RO) > *(CTLR) 
001476 005200 INC : CTLR 
001500 020027 000003 CMP RO, #3 + CTLR,* 
001504 003772 BLE 48$ 
001506 005000 CLR RO : COUNT 
001510 112760 000377 0000006 49$: MOVB  #377,RP.USE(RO) : #,* (COUNT? 
001516 005200 INC RO : COUNT 
001520 020027 000037 CMP RO, #37 : COUNT,* 
001524 003771 BLE 498 
001526 005037 0000006 CLR 10D. 0UT : 
001532 005037 0000006 CLR 10D0.1N 


G 10 


SEQ 0123 
czRrcd2 CZRCDAO RC25 3578 EXERCISER 11-Jul-1983 99:4 42:51 VAX-11 Bliss-16 V3-555 Page 
v01.0 INITIALIZE SECT 8-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (7) 


Viet ae 000100 0000006 ; #100,SWP.FLAGS 
000040 0000006 $60. oSWP. FLAGS 


E 
000100 0000006 #100, SWP.FLAGS 
0000006 0000006 : cMP Sup .STRACK, o SWP.ETRACK 
0000006 MOV SWP.STRAC 


K,RO 
0000006 0000006 SwP.ETRACK ,SWP. STRACK 
0000006 RO" ,SWP.ETRACK 


06 000010 #10,SP 
7 PC 


3; Routine Size: 458 words, Routine Base: SCODES + 1476 
> Maximum stack Gnnth 6 g-r invocation: 16 words 


LSINIT INITIALIZE SECTION 
PC,LINIT 


-SBTTL 
000000 004737 001476° LSINIT::JSR 
000004 104411 TRAP 

000006 000207 RTS PC 


; Routine Size: 4 words, Routine Base: S$CODE$ + 3322 
> Maximum stack depth per invocation: 2 words 





SEQ 0124 
CZRCD2 CZRCDAO nee? iby EXERCISER : VAX-11 Bliss=-16 V3-555 Page 38 
v01.0 AUTODROP SECTION : _DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (8) 


ZSBTTL ‘AUTODROP SECTION’ 
'¢ 
: THIS CODE IS emecyrey I LY ares THE INITIALIZE CODE IF THE 


: ““ADR"’ FLAG WAS SET. THE UNDER TEST ARE CHECKED TO SEE IF THEY 
: WILL RESPOND. THOSE THA ARE IMMEDIATELY DROPPED FROM TESTING. 


BGNAUTO; 
RETURN; 
ENDAUTO; 


-SBTTL LAUTO AUTODROP SECTION 
LAUTO: RTS PC 


: Routine Size: 1 word, Routine Base: SCODE$ + 3332 
: Maximum stack depth per invocation: 0 words 


-SBTTL LSAUTO AUTODROP SECTION 
004737 003332" LSAUTO: :JSR PC,,LAUTO 
104461 TRAP 


000207 RTS PC 


3; Routine Size: 4 words, Routine Base: $CODE$ + 3334 
: Maximum stack depth per invocation: 2 words 
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SEQ 0125 
RCDAO RC2S DISK EXERCISER 11-Jul-1983 08:42:51  VAX=11_Bliss-16 V3-555 Page 
Saar eSSine section Basic ibs 49:c6234  ‘DUAZSCDOUCETTE.CZRCDICZRCD2.SRC:5 (9) 


ZSBTTL "CLEANUP CODING SECTION’ 


'¢ 

i CTION CONTAINS THE CODING THAT IS PERFORMED UNDER 
i OF : (A) AFTER EACH COM PLETE weass 6) WHENEVER 

i OUNTERED, AND (C) WHE OPERA PES 

i .$ HE CODE IN THIS SECT 1ON Ws Or PERFORMED. iF THE 
ND-OF=PASS ((A) ABOVE). 


BGNCLN; 
IF .CLK_TYPE EQLU NO_CLOCK ! IF THERE IS NO CLOCK 
TH ! THEN 


Nm 
Oo 
~ 


! RETURN 
! OTHERWISE 


Bey 


Ww 
oO 


-CLK_CSR = 
ctRveC « (.CL 


END; 
IF NOT .EOP_FLAG ! IF INVOKED BY “C OR DOCLN 
THEN ! THEN 

BEGIN 


SETVEC (4, NEX_TRAP, PRIO7); ! IN CASE USER GAVE BAD IP ADDRESS 
men She FROM 0 TO (MAX_ CTLR = 1) DO ! FOR EACH CONTROLLER 


0; ! TURN OFF CLOCK 
LK_VECTOR) ; ! CLEAR CLOCK VECTOR 


WA WARS 
Wwrh— 


SeeecR 


Ne at ADDR = .CST C.CTLR, IP_ADDRJ) NEQA 0 4 CONTROLLER EXISTS 
SN uRT -RC25 (RCIP, RC_ALL, ALL_ONES); ! WRITE IP TO STOP DEVICE 
END; 
CLRVEC (4); ! RETURN TRAP 4 TO DIAGNOSTIC SUPERVISOR 
END; ! IF NOT END OF PASS 


INCR UNIT FROM_O TO (MAX_UNITS = 1) DO ! INITIALIZE DROP UNIT REASON VECTOR 
DUR C.UNIT) = 0; 


IF _ .MEM_MGMT ! IF SYSTEM HAS MEMORY MANAGEMENT 
THEN ! THEN 

BEGIN 

KTPAR4 = %0°1000°; ! RESTORE PAR'S 

KTPARS Nall 1200°; 

MMRO = ! TURN OFF MEMORY MANAGEMENT 


SWUMNOUSWN oO 


WWWAWAA WANA 
ROR MOPIA) 2 3 ot ot ot oe 


Ronononofonononononononononofo Pongo fora 
OunFwWn— 


WG 
Mr 
uw 


an 


END; 
EOP_FLAG = FALSE; ! CLEAR END-OF-PASS FLAG 
ENDCLN; 
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SEQ 0126 
CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 98:4 VAX-11 Bliss=-16 V3-555 age 
v01.0 CLEANUP CODING SECTION 8-Jul-1983 1 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (9) 


-_ LCLEAN CODING SECTION 
0000006 T CLK. TYPE 


6 
000000G acLk.CSR 
0000006 MOV CLK.VECTOR,RO 


000001 0000006 #1,E0P.FLAG 
BNE 


000340 #340,-(SP) 
000000V #NEX. TRAP. -(SP) 
000004 #4,-(SP) 
000003 MOV ine 


010146 
005737 


R1 : CTLR 
0000006 0000006 : MOV CST(R1),RC25.ADDR © #(CTLR),* 
177777 MOV #-1,RO ; *,RC.REG 
0000006 MOV RO, acST(R1) = RC.REG,* 
000016 : #16,R1 : #,CTLR 
000052 RI de : CTLR,* 
000004 MOV #4,RO 


36 
000010 #10,SP 


: C 
0000006 : A + amaeed 
000017 MP RO,#17 
77, E 4 
000001 0000006 #1,MEM.MGMT 
410 € 5$° 
172350 


001 

001200 172352 
177572 
0000006 


5$: oF 
6$: MOV (SP)+,R1 
PC 


3; Routine Size: 64 words, Routine Base: $CODES + 3344 
> Maximum stack depth per invocation: 7 words 


LSCLEAN CLEANUP CODING SECTION 
PC,LCLEAN 

12 

PC 


; Routine Size: 4 words, Routine Base: S$CODE$S + 3544 
+ Maximum stack depth per invocation: 2 words 


000000 004737 003344" 
000004 104412 
000006 000207 
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SEQ 0127 
CZRCD2 CZRCDAO RC25 DIS EXERCISER 11-Jul-1983 08:42:51 -VAX=11_Bliss-16 V3-555 age 
v01.0 DROP UNIT 8-Jul-1983 17:46:34  _DUA2:(DOUCETTE.CZRCDICZRCD2.SRC;5 (10 
; 2342 XSBTTL "DROP UNIT SECTION’ 
: 2345 THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A PLATTER TO NO 
: 2346 LONGER BE TESTED. IT IS EXECUTED WHENEVER THE MACRO 'DODU IS 
: 347 ENCOUNTERED IN THE PROGRAM, OR WHEN THE OPERATOR TYPES THE COMMAND 
; 2349 | 
: 2350 | THE PROGRAM WILL DROP A UNIT FOR ONE OF SEVERAL REASONS: 
; 2351! A CONTROLLER CANNOT BE BROUGHT 
: 2352 | a LATTER CANNOT BE BROUGHT ONLINE TO ITS CONTROLLER, 
: 2353 : AN PUNRECOV VERABLE PORT OR CONTROLLER ERROR HAS BEEN DETECTED, 
: 2354 4. A PLATTER HAS REACHED THE HARD ERROR LIMIT, OR 
: 2359 5. AN MSCP END MESSAGE CONTAINS A ‘UNIT-OFFLINE'’ STATUS CODE. 
; 2357 
; 2358 BGNDU; 
$300 
: 2361 DUM_TBL : VECTOR [5] INITIAL (DUM_UC, DUM_CE, ! ADDRESS TABLE FOR DROP UNIT MESSAGES 
: 2362 DUM_IE, DUM_HE, DUM_UE); 
3 2363 
: 2364 LOCAL 
: 2365 UNIT : WORD, ' NUMBER OF UNIT BEING DROPPED 
: 2366 PRINT : WORD; i 0.k TO PRINT DROP UNIT MESSAGE 
: 2368 LABEL 
: 2369 SEARCH; 
: 2370 
: 2371 BEGIN 
; 2372 
: 2373 REGISTER 
: 2374 T= 0; ! UNIT NUMBER APPEARS IN RO UPON ENTRY 
: 379 UNIT = . INPUT: i GET UNIT NUMBER 
: 3377 END; 1 UNDECLARE REGISTER 
; 3379 PRINT = FALSE; ! ASSUME NO PRINTING OF MESSAGE 
: 2381 SEARCH: ! BEGIN SEARCH BLOCK 
3 Sees BEGIN 
: 2384 INCR CTLR FROM 0 TO (MAX_CTLR = 1) DO ' FOR EACH CST 
$ Seup BEGIN 
: 2387 INCR OFFSET FROM (0 + OF_UN) TO (3 + OF_UN) DO ! FOR EACH UNIT ENTRY IN CST 
: 2388 BEGIN 
: 2390 IF ((.CST C.CTLR. -OFFSET. PRE SJ E atu PRESENT) AND ! IF UNIT EXISTS AND 
; 2391 ({CST E.CTLR, OFFSET. IT] EQLU .UNIT)) i T MATCHES CST ENTRY 
F 2392 THEN i THEN 
3 S3oe BEGIN 
; 2395 IF .CST C.CTLR, OFFSET, P_STAT] EQLU ONLINE  ! IF UNIT IS ONLINE 
: 2396 THEN i THEN 
: 2397 BEGIN 


L 10 


CZRCD2 Tt A aces 0 ISK EXERCISER 11-Jul-1983 09:4 
v01.0 DROP UNIT SECTION 8-Jul-1983 17 


SEQ 0128 
42: VAX-11 Bliss-16 V3-555 age 4 42 
246: _DUA2: CDOUCETTE. CZRCDICZRCD2.SRC:5 (10 
f 
i 
‘ 
i 


PRINT 


TRUE; 
cst C. CTLR, ‘OFFSET, P_STAT] = OFFLINE; : UNIT OFFLINE 
—_" C.UNIT] EQLU YES IT IS UNDER TEST 


! NO FURTHER TESTING 
T C.CTLR, U_CNT] - 1; | DECREMENT UNIT COUNT 
- OF_UN, AL[BITJ = -1; i IF DM EXER, TELL FPT 


END; ! IF UNIT WAS ONLINE 
LEAVE SEARCH; ! EXIT SEARCH BLOCK 
END; ! IF UNIT EXISTS AND MATCHES 
END; ! CST UNIT LOOP 
END; ! CONTROLLER LOOP 
END; ! SEARCH BLOCK 
IF MANUAL AND (.PRINT OR (.DUR C.UNIT] LEQU DU_INIT)) — TO PRINT MESSAGE 


THEN 
BEGIN 


PRINTF (CRLF); ' 
.HOURS, .MINUTES, .SECONDS); ! APSED TIME 
06, .UNIT); i NT XX. DROPPED = 
PRINTF (.DUR_ T&L C.DUR C.UNITIJ); ! 
END; 


2433 
2434 ENDDU; 
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0000006 DUM.TBL:.WORD DUM.UC 
0000006 WORD DUM. 

0000006 DUM.IE 
0000006 WORD DUM.HE 
0000006 WOR DUM.UE 


LDU DROP UNIT SECTION 
004137 0000006 R1,$SAVE5 ; 
010002 ; INPUT,UNIT 
; PRINT 
; CTLR 
; CTLR,* 
000007 
0000006 


MOV 
000003 #3,R1 ; *, OFFSET 
3 MOV 4 
; OFFSET,* 





CZRCDAO RC25 D ee 
DROP UNIT Sectl 


006300 
700 0000006 


040000 


177740 


020000 


000001 
020000 
0000006 


0000006 
000016 

0000006 
0000056 


900032 
0000006 


177777 |=177772G 


000006 


0000006 000002 
0000006 
000001 


Hn 10 


11-Jul-198 
8-Jul-198 


RO 
#CST,RO 
#40000, (RO) 
4$ 
-(SP) 
(RO). =(SP) 


#177740, (SP) 
(SP)+, (SP)+ 


4$ 
#20000, (RO) 
3$ 


#1,R3 
#20000, (RO) 
CPT(R2) ,.R3 


RO 
#-1,DM. COMM-6(RO) 
(SP5+, (SP)+ 
5$ 
R1 
R1,46 


(SP)+, (SP)+ 


6$ 

DUR(R2) ,#2 
#CRLF ,~(SP) 
#1,-(SP) 


SEQ oig® 


VAX-11 Bliss-16 V3-555 page 43 
DUA2: CDOUCETTE .CZRCDICZRCD2.SRC35 (10 


; *,PRINT 
+ *(UNIT),* 


3 *(UNIT) 
: CTLR,* 


; CTLR,* 


; OFFSET,* 


3 OFFSET 
; OFFSET,* 


; CTLR 
; CTLR,* 


; PRINT 
; *(UNIT),* 


; SP,* 


— 
WARS 
foe 
Sono o 


0000006 SECONDS , (SP) 
0000006 MOV 

0000006 

0000006 


— ad sd ot 
VW 
> 
AX 


& 


= 


— 


MOV 
0000006 HUM. 60, = (SP) 
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CZRCD2 CZRCDAO RC25 DISK EXERCISER aot hs 08:62:39) VAX-11 Bliss=16 V3-555 
v01.0 DROP UNIT SECTION B-Jul-1985 17:46:34 


000002 #2,-(SP) 
MOV $7 -R0 3; SP,* 


1 
0000006 DUR(R2) ,R2 3 *(UNIT),* 2430 
177400 Ic #177400,R2 


R2 
003554" DUM. TBL(R2) , (SP) 
000001 #1,-(SP) 


000022 #22,SP 
7$: PC 


; Routine Size: 117 words, Routine Base: SCODES + 3566 
: Maximum stack depth per invocation: 17 words 


SEQ 0130 
P. 


a 
VDUAZ: CDOUCETTE .CZRCDICZRCD2.SRC:5 (109 


-SBTTL LSDU DROP UNIT SECTION 
004737 003566’ L$DU:: =. PC,LDU 


RTS PC 


; Routine Size: 4 words, | Routine Base: $CODE$ + 4140 
: Maximum stack depth per invocation: 2 words 
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SEQ 0131 
CZRCDAO_RC EXERCISER 11-Jul-1983 08 :6e:3! VAX-11 Bliss=-16 V3-555 age 
ADD _UN B-Jul-19835 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (11 
ZSBTTL ‘AD SECTION’ 


1+ 


S 


THE ADD-UNIT AY CONTAINS ANY CODE THE Sr tett One WISHES TO BE 
EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK TO THE TEST 
Te caste eet CODE WILL BE EXECUTED AFTER THE OPERATOR COMMAND 


! NUMBER OF UNIT BEING ADDED 
ENDIDX : WORD; 
BEGIN 
REGISTER 
INPUT = 0; ! UNIT NUMBER APPEARS IN RO UPON ENTRY 
UNIT = INPUT; ! GET UNIT NUMBER 
END; ! UNDECLARE REGISTER 
DUR C.UNIT) = 3 ! ZERO OUT DROP UNIT REASON 
STINDX = * TAL ! ZERO OUT 
ENDIDX = “STINDX + TALLY. : ADDED 
INCR COUNT FROM .STINDX ra NENDIDX DO ; UNIT'S 
TALLY C.COUNTJ = 0; ; STATISTICS 


ENDAU; 
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.SBTTL LAU ADD UNIT SECTION 

0000006 : JSR R1,$SAVE2 : 

0000006 DUR(RO) : *(UNIT) 
MOV RO,-(SP) ; UNIT,* 

000030 #30, -(SP) 

0000006 -BLSMUL 


: STINDX, pee 
000027 ROR Ro : 
MOV RO,R1 : STINDX, COUNT 
RI ; COUNT 
2$ 
RA AO ; COUNT,* 
TALLY (RO) 
RI ; COUNT 
R1,R2 ; COUNT, ENDIDX 
(SP)+, (SP)+ 
00005 7 RTS 
: Routine Size: 24 w Routine Base: S$CODE$ + 4150 
* Maximum stack Fath og an “invocation: 6 words 
-SBTTL LS$AU ADD UNIT SECTION 
000000 006732 004150° LS$AU:: JSR PC,LAU 
000004 452 TRAP 
000006 RTS PC 
3 Routine Size: 4 words, Rout ine Base: SCODES + 4230 
+ Maximum stack depth per invocation: 2 words 











czRCd2 
v01.0 


000000 012737 
000006 000002 
: Routine Size: 


¢ 11 
CZRCDAO RC25 DISK EXERCISER 11-Jul-19 : VAX-11 Bliss=-16 V3-555 


SEQ it~ 


NON-EXISTENT MEMORY TRAP HANDLER 8-Jul-19 : DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 Jaye * 


ZSBTTL "NON-EXISTENT MEMORY TRAP HANDLER’ 


14 

: THIS TRAP HANDLER IS VECTORED FROM LOCATION 4 FOR ALL UNIBUS TIMEOUT 

; ERRORS, INDICATING THAT AN ATTEMPT WAS MADE TO REFERENCE A NON-EXISTENT 
; MEMORY LOCATION. ITS MAIN PURPOSE IS TO SET A FLAG Oe HE RC 

: REGISTER EXISTENCE TEST, INDICATING THE ABSENCE OF A DEVICE REGISTER. 


le 

BGNSRV (NEX_TRAP); 

NEX = TRUE; ! NEX TRAP OCCURRED 
ENDSRV; 


.SBTTL NEX.TRAP NON-EXISTENT MEMORY TRAP HANDLER 
000001 0000006 NEX. TRAP: : 
aH #1,NEX 


4 words, Routine Base: $CODE$ + 4240 


: Maximum stack depth per invocation: 0 words 


47 








D 11 


cZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 9: 
v01.0 CLOCK INTERRUPT SERVICE ROUTINE 8-Jul-1983 17 


ZSBTTL “CLOCK INTERRUPT SERVICE ROUTINE’ 

'¢ 

: NTERRUPT SERVICE ROUTINE IS ENTERED AT THE CLOCK HERTZ RATE 
: a ES PER SECOND). ITS PURPOSE IS TO MAINTAIN THE ELAPSED 


MES 
: EXERCISER, AND, IF ONE SECOND HAS ELAPSED, TO FLAG THE 
; SETTING T “FLAG TO’ “TRUE"’. 


le 
BGNSRV (CLK_INT_SERV); 


TICKS = .TICKS + 1; 
I ee EQLU .CLK HERTZ 


BEGIN 
TICKS = 0; 
SE ECONDS = ~SECONDS + 1; 
r. ‘g SECONDS EQLU 60 
ON BEGIN 
SECONDS = 0; 
MINUTES = .MINUTES + 1; 
IF .MINUTES EQLU 60 
THEN 
BEGIN 


MINUTES = 0; 
HOURS = .HOURS + 3 


END; 
END; 
END; 
IF g¥SEKe EQLU 0 4 a SECOND HAS ELAPSED 
TLFLAG = TRUE; ! FLAG THE EVENT 
ENDSRV; 


SEQ 0133 
42:51 VAX=-11 Bliss=-16 V3-555 age 4 48 
2:46:34 _DUA2: CDOUCETTE. CZRCDICZRCD2.SRC;5 (13 


Seuaar 


QUelWN—o 


Ronononeononanononanononofono nonony 
MVM 


rr 
-—Ooon 
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SEQ 0134 
CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX=11 Bliss-16 V3-555 age 9 
v01.0 CLOCK INTERRUPT SERVICE ROUTINE 8-Jul-1983 17:46: 34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (13 


~SBTTL CLK.INT.SERV CLOCK INTERRUPT SERVICE ROUTINE 
005237 ne 


ICKS 

023737 MP TICKS,CLK.HERTZ 
001024 BNE 1$ 

TICKS 

SECONDS 

_—— 

SECONDS 

MINUTES 

—_—— 

MINUTES 

HOURS 

TICKS 


2$ 
000001 0000006 9 MOVB #1,T. FLAG 


; Routine Size: 33 words, Routine Base: S$CODE$ + 4250 
: Maximum stack depth per invocation: 0 words 








11 
; SEQ “ 


cece CZRCDAO te Hs a EXERCISER ie ett VAX-11 Bliss-16 V3- 


Se Ge Ge Ge Fe Se Ge Fe Se Ge Ge Fe Se Ge Fe Se Ge 





555 
VOUAD:CDOUCETTE.CZRCDICZRCDZ.SRC:S (Tas 


GLOBAL ROUT! 8-Jul-19 
ZSBTTL *GLOBAL ROUTINES’ 
GLOBAL ROUTINE COPY_BLK (SRC, DST, NWRDS) : NOVALUE = 


'+ 
; THE PURPOSE OF THIS “ply IS TO TRANSFER A BLOCK OF MEMORY OF LENGTH 
: "“NWRDS'* FROM ‘’SRC’’ TO ‘DST 


ties 
INCR I FROM 1 TO .NWRDS DO ! FOR EACH WORD IN BLOCK 
BEGIN 
! TRANSFER WORD FROM SOURCE TO DESTINATION 


! ADVANCE DESTINATION ADDRESS 
! ADVANCE SOURCE ADDRESS 


-SBTTL COPY.BLK GLOBAL ROUTINES 
COPY.BLK:: 

CLR RO 

BR 2s 
1$: @6(SP) ,a4(SP) 

#2,4(SP) 

aoe -6(SP) 
RO,2(SP) 
1$ 
PC 


3; Routine Size: 16 words, Routine Base: SCODE$ + 4352 
+ Maximum stack depth per invocation: 0 words 


2$: 
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SEQ 0136 
CZRCD2 CZRCDAO C25 Disk EXERCISER 11-Jul-1983 08:42:51  VAX=11 Bliss-16 V3-555 51 
v01.0 GLOBAL R 8-Jul-1983 06 tg. 34 _DUAZ: [DOUCETTE .CZRCDICZRCD2. SRC; 5 ast 
; 2539 GLOBAL ROUTINE SET_CPAR (CTLR) : NOVALUE = 
; 2541 '+ 
; 2542 | THIS ROUTINE SETS UP THE COMMONLY-USED CONTROLLER-RELATED DATA ITEMS 
; 3543 : FOR THE GIVEN CONTROLLER NUMBER. 
; 2545 | INPUTS: 
: 546 CTLR = CONTROLLER NUMBER 
; 2548 | ‘ IMPLICIT OUTPUTS: 
: 2549 | CCTLR = CURRENT CONTROLLER NUMBER 
: 2550 | EST-ADDR = ADDRESS OF CONTROLLER'S STATUS TABLE 
: 2551 | DCT“ADDR = ADDRESS OF CONTROLLER’ R E 
: 2552 | uC25_ADDR = ADDRESS OF CONTROLLER'S IP REGISTER 
: 2553 | OMC_ADDR = ADDRESS OF CONT R 
: 2554 | OCL7X1,2 = STARTING/ENDING INDECES OF <GONTROLLER” S OUTSTANDING 
: 2555 | COMMAND AREA (OUTC_LIST, OUTC_TIMR) 
F 2556 | RPS_X1,2 = STARTING/ENDING INDECES OF COnTROLLER® S RETURN 
: 2557 | PACKET SAVE AREA (RP_SAVE) 
: 2558 i- 
: 2559 
; $200 BEGIN 
: 2562 CCTLR = .CTLR; ' SET CURRENT CONTROLLER NUMBER 
; 2563 CST_ADDR = CST + (.CTLR * CST_LEN * 2); ! CALCULATE ADDRESS OF CONTROLLER'S CST 
; 2564 DCT-ADDR = DCT + (.CTLR * DCT-LEN * 2); | CALCULATE ADDRESS OF CONTROLLER'S DCT 
F 2565 RC25_ADDR = .CST_ADDR LIP_ADDRI; i GET CONTROLLER'S DEVICE ADDRESS 
3 2566 DMC_ADDR = DM COMM + (.CTLR * DMC_LEN * 2); ' CALCULATE ADDRESS OF CONTROLLER'S DM_COMM AREA 
; 2567 OCL"X1 = .CTLR * OUTC_CNT; ' STARTING INDEX OF CTLR’S OUTC AREA 
: 2568 OCL-X2 = -OCL_X1 + OUTC CNT - 1; | ENDING INDEX OF CTL "s C AREA 
: 2569 RPS-X1 = .CTLR * RPS_LEN; i STARTING INDEX OF CTLR°S RETPKT SAVE AREA 
; 2570 RPS-X2 = .RPS_X1 + RBS “LEN = 1; i ENDING INDEX OF CTLR'S RETPKT SAVE AREA 
; 2572 END: 
.SBTTL SET.CPAR GLOBAL ROUTINES 
000000 010146 SET.CPAR 
R1,-(SP) : 2539 

000002 016601 000004 MOV 4(SP),R1 : CTLR,* 2562 
000006 610137 0000006 MOV R1,CCTLR 
000012 010146 MOV 1.=(SP) ; 2563 
000014 012746 000016 MOV #16,-(SP) 
000020 004737 0000006 JSR '? 
000024 062 0000006 ADD 
000030 010037 0000006 V RO,CST.ADDR 
000034 010116 MOV : 2564 
000036 012746 000022 MOV #22,-(SP) 
000042 004737 0000006 JSR PC, L 
000046 062700 ADD #o0c 
000052 010037 MOV RO 
000056 017737 0000006 0000006 MOV acST.ADDR,RC25.ADDR : 2565 

010116 MOV R1 ; 

012746 MOV #64,~(SP) 
000072 004737 000000 JSR PC ,BLSMUL 
000076 062700 0000006 ADD #0. COMM, RO 
000102 010037 0000006 MOV RO, DMC .ADDR 





Sn 
=z 


OUTINES 


S888838 


0000006 
0000006 
000017 0000006 


PRUNE ‘ao 
ed ed aed eed o 
VOSSRSaRNOS oR 


3388 


0000006 


0000006 
000007 0000006 
000010 


BEEEE 


000170 
000172 


3; Routine Size: 62 words, Routine Base: 
words 


+ Maximum stack depth. per invocation: 


CERCORG RCes DISK EXERCISER 
GLOBAL 


SCODES + 4412 


H 11 


"ynJut=1968 19:46:34 


VAX=11 Bliss-16 v3-555 cae 
7 ss- — 
“DUA2: CDOUCETTE. WeReDICZRCD2.SRC:5 C139" 


2567 


; OCL.X1,* 


; RPS.X1,* 
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; Routine Size: 
* Maximum stack 





I 11 


11-Jul-19 


SEQ dt ~ 
83 VAX=-11 Bliss-16 V3-555 
8-Jul-1983 


gt ae 4 “a EXERCISER 53 
-DUA2: CDOUCETTE.CZRCDICZRCD2.SRC;5 as 


GLOBAL Ri 
GLOBAL ROUTINE SET_UPAR (OFFSET) 


44 


98:4 42:51 
17:46:34 
: NOVALUE = 


THIS ROUTINE SETS UP THE COMMONLY-USED UNIT-RELATED DATA ITEMS FOR 
THE CURRENT CONTROLLER AND GIVEN CST OFFSET. 


INPUTS: 
OFFSET = WORD OFFSET INTO yrots CONTROLLER'S CST WHICH 
DESCRIBES A UNIT 


IMPLICIT INPUTS: 
CST_ADDR = ADDRESS OF CURRENT CONTROLLER’ s CST 


IMPLICIT OUTPUTS: 
CUOFF = CURRENT UNIT'S CST OFFSET 
CPLAT = apt PLATTER ADDRESS (MSCP UNIT NUMBER) 
L$LUN = CURRENT UNIT NUMBER (DS _UNIT NUMBER) 
T_ADDR = ADDRESS OF CURRENT UNIT'S STATISTICS SLOCK (TALLY) 


BEGIN 


CUOFF 
CPLAT 


LSLUN 
TLADDR = 
END; 


-OF FSET; 

“CST_ADDR C.OFFSET, P_ADDRI; 
.CST-ADDR C.OFFSET, P_UNITJ; 
“TALLY + (.LSLUN * TACLY_ LEN * 2); 


-SBTTL SET.UPAR GLOBAL ROUTINES 
SET.UPAR:: 
MOV R1,-(SP) : 
000004 000000G 4(SP) , CUOFF ; OFFSET,* 
000004 alae 3: CUOFF,* 
CST.ADDR,RO 
(RO), CPLAT 
CPLAT+1 
ayer is 
#177740,R1 
RY LSLUN 
; LSLUN,* 


P)+-R1 


31 words, Routine Base: $CODE$ + 4606 


depth per invocation: wor 





cracpe 
vol. 





J 
SEQ ne 

CZRCDAO aes “a EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-555 page 54 
GLOBAL ROU 8-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (17 
GLOBAL ROUTINE GET_ENV (CTLR) = 
1+ 
; THIS ROUTINE SEARCHES THE MSCP ENVELOPE POOL ALLOCATION TABLE (ENV “gt 

ae A FREE MSCP ENVELOPE TO ALLOCATE TO THE GIVEN CONTROLLER. IF ONE IS 

THE ENVELOPE IS ZEROED OUT, AND THE ENVELOPE INDEX IS RETURNED 
+ THE CALLER. OTHERWISE, A -1 IS RETURNED INDICATING NONE AVAILABLE. 


INPUTS: 
CTLR = CONTROLLER NUMBER REQUESTING ALLOCATION 


i 
i 
i 
i 
i 
i 
i 
BEGIN 


LOCAL 
INDEX : WORD; 


INDEX = =1; 
oe FROM 0 TO (ENV_CNT = 1) DO ! FOR EACH ENTRY IN ALLOCATION TABLE 


IF .ENV_USE C.COUNT] LSS 0 ' IF ENTRY INDICATES FREE ENVELOPE 
THEN i THEN 
BEGIN 
ENV USE C-COUNT] = .CTLR: ! ALLOCATE ENVELOPE TO CONTROLLER 
INCR J FROM 2 TO (ENV_LEN - 1) D ! ZERO OUT ENVELOPE 
MSCP_ENV C.COUNT,~.J. ALLBITD = 0: 
EXITLOOP?” ! DONE 
END; 
END; 
RETURN . INDEX; 
END; 
.SBTTL GET.ENV GLOBAL ROUTINES 
0000006 GET.ENV:: 
J R1 SSAVE4 : 
177777 MOV wi : * INDEX 
0000006 1$: ENV .USE(R3) = *(COUNT) 
000014 0000006 14 (SP) ,ENV.USE(R3) : CTLR,*(COUNT) 
MO + COUNT, INDEX 


T,* 
000042 
0000006 
000002 


K 11 
cues CZRCDAO_RC25 7* EXERCISER 11-Jul-1983 + 


SEQ ar ~ 
VAX-11 Bliss-16 V3-555 


42:51 
GLOBAL ROUTINE B-Jul-1983 17:46:34 DUA2: CDOUCETTE.CZRCDICZRCD2.SRC;5 A 


R1 
0000006 MSCP.ENV(R1) 
000041 R2,441 
2s 
4$ 
3$: R3 
000137 MP * Slee 
4$: MOV R4,RO 
PC 


; Routine Size: 36 words, Routine Base: S$CODE$ + 4704 
: Maximum stack ny per invocation: 8 words 





L 11 
SEQ 0141 


cZRCD2 gl eH A ne EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss=16 V3-555 Pa 56 
v01.0 GLOBAL R B-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCO2.SRC;5 (18 


GLOBAL ROUTINE PUT_ENV (INDEX) : NOVALUE = 
'¢ 

: ata, ENVELOPE DESIGNATED BY “*INDEX’’ IS RETURNED TO THE POOL BY THIS 
BEGIN 

ENV_USE C.INDEX] = - 


-SBTTL PUT.ENV GLOBAL ROUTINES 
000002 PUT.ENV:: 
MOV 2(SP) ,RO 
000004 112760 000377 0000006 MOVB #377, ENV.USE (RO) 
000012 000207 RTS PC 


; Routine Size: 6 words, Routine ge SCODES + 5014 
: Maximum stack depth per invocation: 0 words 





CZRCD2 
v01.0 


3 


34 
000036 000207 


zs Routine Size: 


M11 


SEQ 0142 
gl ae ix EXERCISER 11-Jul-1983 08:42:51 VAX=-11 Bliss=-16 V3-555 age 57 
GLOBAL R 8-Jul-1983 17:46:34 DUA2: C(DOUCETTE. CZRCDICZRCD2.SRC35 (19 
GLOBAL ROUTINE PUTA_ENV (CTLR) : NOVALUE = 
1+ 
' THIS ROUTINE DEALLOCATES ALL MSCP ENVELOPES WHICH HAVE BEEN ALLOCATED 
: TO A PARTICULAR CONTROLLER. 
; INPUTS: 
CTLR = CONTROLLER NUMBER 
BEGIN 
pan oot FROM 0 TO (ENV_CNT = 1) DO ! FOR EACH ENTRY IN ALLOCATION TABLE 
IF .ENV_USE C.COUNT] EQLU .CTLR IF ENVELOPE IS ALLOCATED TO GIVEN CONTROLLER 
ENV_USE C.COUNT] = 1; i DEALLOCATE IT 
END; 
END; ! ROUTINE PUTA_ENV 
-SBTTL PUTA.ENV GLOBAL ROUTINES 
PUTA.ENV:: 
MOV R1,-(SP) 3 2652 
CLR R 3 COUNT 2664 
0000006 1$: MOVB ENV.USE (RO) ,R1 3 *(COUNT),* 2667 
000004 — 3 *,CTLR 
000377 0000006 MOVB #377, ENV.USE(RO) 3 *,* (COUNT) 2669 
2$: INC RO 3 COUNT 2664 
000137 CMP RO,4137 3 COUNT,* 
BLE 1$ 
MOV (SP)+,R1 3 2652 
RTS PC 
16 words, Reutine Base: $CODE$ + 5030 


> Maximum stack depth per invocation: 2 words 


CZRCD2 
v01.0 





N11 


CZRCDAO ie pis EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-555 
GLOBAL ROU 8-Jul-1983 17:46:34 


GLOBAL ROUTINE GET_RETPKT (CTLR) = 


1+ 

: THIS ROUTINE SEARCHES THE RETURN PACKET POOL ALLOCATION Yo (RP ee 
FOR A FREE RETURN PACKET TO A Fg TO THE GIVEN CONTROLLER. IF ONE I 
FOUND, THE PACKET IS ZEROED OUT D THE PACKET INDEX IS RETURNED TO 
THE CALLER. OTHERWISE, A -1 IS RETURNED INDICATING NONE AVAILABLE. 


INPUTS: 
CTLR = CONTROLLER NUMBER REQUESTING ALLOCATION 


SEQ 0143 


BEGIN 


LOCAL 
INDEX : WORD; 


INDEX = =1; ! ASSUME NONE AVAILABLE 
oo FROM 0 TO (RP_CNT = 1) DO ! FOR EACH ENTRY IN TABLE 


IF: RP_USE C.COUNT] LSS 0 | IF FREE RETPKT IS FOUND 
BEGIN 
RP USE . -COUNT] = .CTLR: ! ALLOCATE RETURN PACKET TO CONTROLLER 
INCR J FROM-O 70 (RP_LEN - 1) DO ! ZERO QUT RETPKT 
RETPKT C.COUNT, .J, ALLBITJ = 0; 
EXITLOOP; ! DONE 
END; 
END; 
RETURN .INDEX; ' RETURN PACKET INDEX (OR -1) TO CALLER 
END; 
.SBTTL GET.RETPKT GLOBAL ROUTINES 
0000006 GET.RETPKT: 
JSR. R1,$SAVE4 ° 
177777 #-1,R4 : *, INDEX 
c R3 : COUNT 
0000006 1$: ST RP USE (R3) : *(COUNT) 
000014 0000006 14 (SP) ,RP.USE(R3) : CTLR,*(COUNT) 
MOV : COUNT . INDEX 
000030 
0000006 PC ,BLSMUL 
(SP)+, (SP) + 


R 
RO,R1 
R2,R1 


8 
DUA2: CDOUCETTE..CZRCDICZRCD2.SRC;5 (209 





cZRCD2 


3; Routine Size: 


CZRCDAO RC25 DISK EXERCISER 
NES 


B 12 
11-Jul-1983 


GLOBAL ROUTI 8-Jul-1 
ASL R1 
0000006 ous RETPKT(R1) 
000027 cMP R2,427 
BLE 2$ 
BR 4$ 
3$: INC R3 
000037 CMP R3,437 
BLE 
4$: mCY R4,RO 
RTS PC 
35 w Routine venes SCODES + 5070 
ds 


: Maximum stack depth | ao “invocation: 8 wor 


983 


0: 42: 
17:46: 


51 
34 


VAX=-11 Bliss=-16 V3-555 
DUA2: CDOUCETTE.CZRCD 


Bete Ge 


J 
J.* 


COUNT 
COUNT ,* 


INDEX ,* 


Fczeco2.sRc:5 (208. 


2702 


2698 
2693 


2686 
2674 





C 12 


CZRCD2 CZRCDAO ie Bh EXERCISER 11-Jul-1983 3 42:51 VAX=11 Bliss-16 V3-555 
v01.0 GLOBAL ROU 8-Jul-1983 17 


GLOBAL ROUTINE PUT_RETPKT (INDEX) : NOVALUE = 
'+ 

: THE RETURN PACKET DESIGNATED BY ‘*INDEX'’ IS RETURNED TO THE POOL BY THIS 
: ROUTINE. 

BEGIN 

RP_USE C.INDEX] = = 


SEQ 0145 
Pp 


a 
746:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (219 


NMononorofororory 
SNS 
eS tS) 
SOWOONOUSW 


-SBTTL PUT.RETPKT GLOBAL ROUTINES 
000002 otomeat 


2(SP) ,RO 
000004 112760 000377 0000006 MOVB #377,RP.USE(RO) 
000012 000207 RTS PC 


: Routine Size: 6 words, Routine pence SCODES + 5176 
: Maximum stack depth per invocation: 0 words 


3: INDEX,* 





D 12 
SEQ one 

CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-555 page 
GLOBAL ROUT 8-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2. SRC; 5 (22 
GLOBAL RC TINE GET_IO_BUFF (ADDR) : NOVALUE = 

eis ROUTINE HANDLES THE ALLOCATION OF AN I/O BUFFER FROM THE BUFFER 

INPUTS: 

ADDR = ADDRESS TO STORE THE 2-WORD BUFFER DESCRIPTOR 


IMPLICIT INPUTS: 
CCTLR = CURRENT CONTROLLER NUMBER 


OUTPUTS: 
THE ALLOCATED BUFFER’ Sp te Lie it LOADED INTO THE TWO 
WORDS A * AND ' = RWISE, A *=1°' IS RETURNED 
AT “‘ADDR'’ IF NO BUFFERS ARE AVAILABLE. 


.ADDR = -1; ' ASSUME FAILURE 
INCR COUNT FROM 0 TO (.NUM_BUFF = 1) DO ' FOR EACH ENTRY IN BUFFER TABLE 
IF .BUFF_OWN C.COUNT] LSS 0 ' IF BUFFER IS FREE 
THEN ' THEN 
BEGIN 
BUFF_OWN C.COUNT) = .CCTLR; ' ALLOCATE BUFFER TO CONTROLLER 
-ADDR = -BUFF_DESC C.COUNT. D_LO); | RETURN BUFFER DESCRIPTOR 
(.ADDR + 2) = .BUFF_DESC C COUNT. BD_ HI); 
EXITLOOP; ' DONE 
END; 
END: ! BUFFER TABLE LOOP 
END: ! ROUTINE GET_IO_BUFF 
-SBTTL GET.10. BUFF GLOBAL ROUTINES 
0000006 GET.10.8UFF :: 
JSR R1,$SAVE2 


000010 10(SP),.R1 
177777 at, » (Ri) 


Vv 


BR 3$ 
0000006 : 3. art nie? 
0000006 0000006 CCTLR, BUFF .OWN(R2) 
MOV R2,RO 


RO 
0000006 BUFF .DESC(RO), (R1) 
0000026 000002 BUFF. “DESC+2(RO) ,2(R1) 


2$: R 
0000006 3$: ag AU.BUFE 


000066 7 RTS PC 
: Routine Size: 28 w Routine Base: SCODES + 5212 
+ Max imum stack Pane = * invocation: 4 words 








E 12 


SEQ 0147 
EERCORS at i — EXERCISER 11-Jul-1983 0 vaKe11 Bliss-16 V3-555 age 6 
GLOBAL R 8-Jul-1983 12 _buAd: !DOUCETTE.CZRCDICZRCN2. SRC; 5 (239 


GLOBAL ROUTINE PUT_IO_BUFF (ADDR) : NOVALUE = 
'¢ 
: THIS ROUTINE HANDLES THE DEALLOCATION OF AN I/O BUFFER, RETURNING 17 
: TO THE BUFFER POOL. 
INPUTS: 


' 
' 
] 
ADDR - ADDRESS OF THE 2-WORD BUFFER DESCRIPTOR TO BE 
1 


BEGIN 
oe FROM 0 TO (.NUM_BUFF = 1) DO ! FOR EACH ENTRY IN BUFFER TABLE 
IF (¢ yor DESC C.COUNT, BD_LO] EQLA we Ne ! IF THIS IS THE BUFFER’S ENTRY 
-BUFF-DESC C.COUNT, BD_HIJ EQLU .(.ADDR + 2))) 
N THEN 
BEGIN 


BUFF od C.COUNT) = ! DEALLOCATE BUFFER 
EXx1TLOO ! DONE 


END; 
END; ! BUFFER TABLE SEARCH LOOP 
END; ! ROUTINE PUT_IO_BUFF 


> PUT.IO.BUFF GLOBAL ROUTINES 
0000006 PUT. 10.BUFF 
JS R1,$SAVE2 ; 
R2° ; COUNT 
BR 3$ 
1$: MOV ~ aa ; COUNT,* 


R1 
0000006 000010 pa  tatenatcanamainaanl ; *,ADDR 
; ADDR,* 


000010 10(SP) ,RO 
0000026 000002 BUFF .DESC+2(R1) ,2(RO) 
000377 0000006 MOVB Sart ire AMER ; *,* (COUNT) 


2$: R2 COUNT 
0000006 3$: MP Re oNUM. BUF F ; COUNT,* 


PC 


z: Routine Size: 26 words, Routine Ease: SCODE$ + 5302 
: Maximum stack depth per invocation: 4 words 








CZRCD2 
v01.0 
3 2792 
3 2793 
: 2794 
; 2795 
3 2796 
3 2797 
8 2798 
3 2799 
3 2800 
; 2801 
; 2802 
3 2803 
; 2804 
Py co05 
3 2806 
3 2807 
; 2808 
3 2809 
; 2810 
000000 010146 
000002 005000 
000004 000411 
000006 
000012 020137 
000016 
000020 112760 
000026 005200 
30 020037 
000034 002764 
000036 012601 
000040 


3; Routine Size: 


F 12 


CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08 :4¢: 3! VAX-11 Bliss-16 V3-555 
GLOBAL ROUTINES B-Jul-1983 17:46:34 DUA2: CDOUCETTE.CZRCDJ 
GLOBAL ROUTINE PUTA_BUFF : NOVALUE = 
14 
: THIS ROUTINE DEALLOCATES ALL 1/0 BUFFERS WHICH HAVE BEEN ALLOCATED TO 
: THE CURRENT CONTROLLER (CCTLR). 
BEGIN 
aon 3 FROM 0 TO (.NUM_BUFF = 1) DO ' FOR EACH ENTRY IN BUFFER TABLE 
4 eure om C.COUNT] EQLU .CCTLR : THIS BUFFER IS ALLOCATED TO THE CURRENT CONTROLLER 
BUFF_OWN C.COUNT) = -1; i DEALLOCATE IT 
END; ' BUFFER TABLE ENTRY LOOP 

END; ! ROUTINE PUTA_BUFF 

-SBTTL PUTA.BUFF GLOBAL ROUTINES 

PUTA.BUFF :: 

MOV R1,-(SP) 3 

oo n° 3; COUNT 
0000006 1$: MOVB BUFF .OWN(RO) ,R1 3; *(COUNT),* 
0000006 a ene 
000377 0000006 MOVB #377,,.BUFF .OWN(RO) 3: *,*(COUNT) 

23: INC RO ; COUNT 

0000006 3$: u RO.NUM. BUFF 3; COUNT,* 

MOV (SP)+,R1 é 

RTS PC 

17 words, Routine Base: S$CODE$ + 5366 


3 Maximum stack depth pew invocation: 2 words 


Pa 
CZRCD2.SRC:5 (249 


2792 
2801 


2804 


2806 
2801 


2792 


CZRCD2 
v01.0 


horonononononnrror 
2.09 C9 C0 000009 Co CD 
te ed ad td od 


RR 
WN —O COnNOustuwn— 


non 
ih 


nm 
2 


: Routine Size: 


G 12 


SEQ 0149 
CZRCDAO RC25 DISK EXERCISER 11*Jul-1983 08:42:51 VAK-11 Bliss-16 V3-555 Page 65 
GLOBAL ROUTINES 8-Jul-198 a} _DUA2: CDOUCETTE .CZRCDICZRCD2. SRC; 5 (233 
GLOBAL ROUTINE OUT_I0DQ = 
'¢ 
i THIS ROUTINE RETURNS TO THE CALLER THE NEXT RETPKT INDEX TO BE 
i PROCESSED FROM THE 1/0 DONE QUEUE (10DQ). THE ‘"‘OUT’’ POINTER TO THE 
; QUEUE IS ALSO UPDATED. 
i INPUTS: 
NONE 
i OUTPUTS: 
THE INDEX OF THE NEXT RETPKT TO BE PROCESSED. 
BEGIN 
LOCAL 
INDEX : WORD; 
INDEX = .10D0 [.10DQ_OUT); ' GET NEXT RETPKT INDEX 
1000 OUT = .10D0 OUT™+ 1; i ADVANCE “‘OUT’’ POINTER 
IF ;,10D0_out GEQD 10DQ_LEN IF BEYOND END OF QUEUE 
10DQ_OuT = 0; i SET POINTER TO BEGINNING OF QUEUE 
RETURN . INDEX; i RETURN INDEX TO CALLER 
END; 
.SBTTL OUT.JODQ GLOBAL ROUTINES 
0000006 OUT.10D0: : 
MOV 10DQ.0UT,RO : 2830 

0000006 MOVB  10DQ(RO),RO 3 *, INDEX 
177400 BIC #177400,R0 3 *, INDEX 
0000006 INC 10D. 0UT 3 2831 
0000006 000040 CAP 10D0.0UT ,#40 3 2832 
0000006 CLR 10D. 0uUT : 2834 

1$: RTS PC : 2811 
15 words, Routine Base: S$CODE$ + 5430 


: Maximum stack depth per invocation: 0 words 


CZRCD2 
v01.0 


010146 
013701 
010100 


700 000037 
0000006 


3; Routine Size: 


H 12 
cence ates “a EXERCISER W1-Jul=19 


83 08:4 42:51 
GLOBAL R 8-Jul-1983 17:46:34  _DUA2:CDOUCETTE.CZRCD 


GLOBAL ROUTINE IN_IODQ (INDEX) : NOVALUE = 
'¢ 


THIS ROUTINE INSERTS A RETURN PACKET INDEX INTO THE 1/0 DONE QUEUE, AND 
} UPDATES THE I0DQ_IN POINTER. 


le 
BEGIN 
IF (((.10DQ_IN + 1) NEQU s10DQ_OUT) AND ' IF 1/0 DONE QUEUE IS NOT FULL 
(.10DQ"IN = (1000 a = 13 NEQU .10D0_OUT)) | 
THEN ' THEN 
BEGIN 
1000 £.10D0 IN] = wy INDEX: ' LOAD INDEX INTO QUEUE 
10D0_IN = .TODQ_IN + 1; i ADVANCE “IN’’ POINTER 
If ;,Jon0_ IN oPa0. Tope. LEN i IF BEYOND END OF QUEUE 
10D0_IN = 0; i CYCLE BACK TO BEGINNING OF QUEUE 


END; ! IF 10D@ IS NOT FULL 


-SBTTL IN.IODQ GLOBAL ROUTINES 
IN. 10DQ:: 
MO R1,-(SP) 


1000. 1N,R1 

4 »RO 
0000006 RO, 1000. OUT 
R1,R0 
#37,R0 
| cated 
000004 0000006 MOVE 4(SP) , 100Q(R1) 
0 G ODQ.IN 
0000006 000040 MP | aonenied 
0000006 10DQ.1N 

1$: MOV sae 


27 words, Routine Base: S$CODE$ + 5466 


: Maximum stack depth per invocation: 2 words 


VAX-11 Bliss-16 V3-555 


SEQ 0150 
se 
JCZRCO2.SRC35 (26 








I 12 
SEQ 0151 
CZRCD2 aig nee Bit EXERCISER 11-Jul-19 08: VAX-11 Bliss=-16 V3-555 Pa age 67 
v01.0 GLOBAL R 8-Jul-1983 1 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (27 


GLOBAL ROUTINE DROP_CTLR (CTLR, REASON) : NOVALUE = 


'¢ 

: te ROUTINE DROPS ALL UNITS a yp geld ig WITH THE CONTROLLER DESIGNATED 
: “CTLR'’. THE REASON FOR DROPPING THE DEVICE IS LOADED INTO THE DUR 

: VECTOR Fon EACH ATTACHED UNIT. THIS DATA IS THEN USED BY THE DROP UNIT 


le 
BEGIN 


LOCAL 
UNIT; 


sao oS aid FROM (0 + OF_UN) TO (3 + OF_UN) DO ! FOR EACH UNIT IN CST 


— C.CTLR, .OFFSET, P_PRES] EQLU PRESENT ! IF UNIT IS CONFIGURED 


! GET DS UNIT NUMBER 
Al “at FOR DROPPING UNIT 


C.CTLR, .OFFSET, P_UNITI; 
= .REASON; 
; ROP 


); 
END; 
END; 
-SBTTL DROP.CTLR GLOBAL ROUTINES 


0000006 DROP.CTLR:: 
JSR R1,$SAVE3 : 
6 000014 14(SP) ,-(SP) 3: CTLR,* 
000007 #7,~(SP) 


MOV 
000003 8 ; *, OFFSET 

: R2 : OFFSET,* 
040000 0000006 #40000, CST(RO) 
0000006 MO CST(RO) RI ; *,UNIT 

: UNIT 
177740 #177740,R1 : *,UNIT 
000016 0000006 MOVB = 16(SP) ,DUR(R1) : REASON, *(UNIT) 
MOV 1,R0 : UNIT,* 


os : R2 ; OFFSET 
000006 MP | ta ; OFFSET,* 


(SP)+,(SP)+ 
PC 


3; Routine Size: 34 words, Routine Base: SCODE$ + 5554 
+ Maximum stack depth per invocation: 8 words 





czRCd2 
v01.0 


CZRCDAO RC25 DISK EXERCISER 
GLOBAL ROUTINES 


GLOBAL ROUTINE DRV_CTLERR (CTLR) 


'¢ 


J 12 


11-Jul-19 


SEQ “es 
83 08:42:51 VAX-11 Bliss=-16 V3-555 
8-Jul=1983 17:46 


le 
46:34 DUA2: CDOUCETTE.CZRCDICZRCD2.SRC;5 89 


: NOVALUE = 


: THIS ROUTINE IS are BY ony NS ween nah FATAL ERROR WHENEVER AN 


ary OVERABLE CONTR 


S BEEN DETECTED. ITS PURPOSE IS T 


LER ERR 
AN UP ALL CON GNTROLLER-RELATED thee IN THE “DRI ver’ Ba fy} OF rhe 


PROGRAM. THIS INCLUDES MARKING T 


CONTROLLER OFFLINE, CLEAR 


ING THE 
C-RING COUNT, AND DEALLOCATING MSCP ENVELOPES DESCRIBED IN THE RESPONSE 
RING AND OUTSTANDING COMMAND AREA (OUTC_LIST). 


INPUTS: 


CTLR = DYING CONTROLLER NUMBER 


Ao BLOCK CDCT_LEN, WORD] FIELD (DC_FIELDS), 


X: 
STIDX : WORD, 
ENDIDX : WORD; 


D_ADDR = DCT + (.CTLR * DCT_LEN * 2); 
WORDO] = 0; 


it. 
ENDIDX = .STIDX + OUTC_C 
a FROM .STIDX” 10. EnDiox DO 


OUTC_TIMR C.COUNT) = 0; 
OUTC“LIST C.COUNT) = -1; 
END; 

END; 


-SBTTL 


0000006 DRV.CTLERR:: 
JSR 


000010 
000022 
0000006 
0000006 


005030" 


! CONTROLLER'S DCT ADDRESS 


! STARTING OUTC INDEX 
' ENDING OUTC INDEX 


! GET Coney FT DCT ADDR 
! MARK DCT OFFLINE AND CLEAR CRI 

: rege ALL ENVELOPES ALLOCATED D TO. CONTROLLER 
! START OF CTLR*S OUTC_LIST AND _TIMR 

! END OF OUT 

! FOR EACH OUTC ENTRY 

! TURN OF COMMAND TIMER 

! INIT SLOT 

! OUTC SLOT LOOP 


! ROUTINE DRV_CTLERR 


DRV.CTLERR GLOBAL ROUTINES 


R1,$SAVE2 
1O(SP) 2R1 


: STIDX,ENDIDX 
: * ENDIDX 
+ STIDX,.COUNT 





CZRCD2 CZRCDAO ae 5 A se EXERCISER 


GLOBAL ROUT! 


005060 0000006 
000074 112761 000377 0000006 
005201 


3; Routine Size: 38 words, Routine Base: 
6 words 


: Maximum stack depth per invocation: 


1$: 


2$: 


K 12 


11-Jul-1983 08:42:51 
B-Jul-1983 17:46:34 

DEC R1 

BR 2$ 

MOV R1,R0 

ASL RO 

CLR OUTC.TIMR(RO) 

MOVB #377 ,OUTC.LIST(R1) 

INC R1 

CMP R1,R2 

BLE 

CMP (SP)+,(SP)+ 

RTS PC 


SCODES + 5660 


VAX=11 Bliss=-16 V3-555 
DUA2: CDOUCETTE .CZRCD 


COUNT 
COUNT ,* 


*,* (COUNT) 


COUN 
; COUNT ,ENDIDX 


0 
Jczeco2.sRc:5 (289 


2921 


2922 
2918 


2905 
2891 


czRCDd2 
v01.0 


Be Be Se Be Be Be Be Se Ge Be Se Ge Se Be Be Se Be Fe Fe Se Ge Ge Be Ge Ss Ge Ge Ge Se He Be Se Be Be Se Ge Ge Ge Ge Fe Se Se oe 


CZRCDAO aCe — EXERCISER 


L 12 


11-Jul-1983 08: 
8-Jul=1983 17 


T UNIT. IF THE HAR 


42:51 
46:34 


VAX-11 Bliss-"$ V3-555 
DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 ¢ 


GLOBAL ROU 

GLOBAL ROUTINE HARD_ERR (ERRCNT) : NOVALUE = 

14 

i THIS ROUTINE IS CALLED BY IO_RETPKT, DM_TALLY, AND OTHERS To UPDATE THE 
i HARD ERROR STATISTIC FIELD FOR THE CURREN D ERROR 

i COUNT HAS EXCEEDED THE OPERATOR=SPECIFIED LIMIT, THEN THE UNIT IS 
DROPPED FROM TESTING. 

i INPUTS: 

: ERRCNT = NUMBER OF HARD ERRORS TO ADD TO CURRENT TOTAL 

i IMPLICIT INPUTS: 

i LSLUN = CURRENT UNIT NUMBER 

i CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST 

! CUOFF = CST OFFSET FOR CURRENT UNIT 

T_ADDR = ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK (TALLY) 
BEGIN 

T_ADDR CER_HRD) = 


iv . Yael ERROR NEQU 


vO T_ADDR CER_HRD] + .enncNT; 


! LOAD = TO DRCP UNIT 


UPDATE UNIT'S HARD ERROR COUNT 
co USER SPECIFIED A HARD ERROR LIMIT 


! IF UNIT IS STILL ONLINE 
! THEN 


IF HARD ERROR LIMIT REACHED 
IF THE USER SPECIFIED A HARD ERROR LIMIT 


ERRCNT,* 


NBEGIN 
IF .T_ADDR CER_HRD] GEQU .SWP_ERROR ' TF HARD ERROK | IMIT REACHED 
THEN ' THEN 
BEGIN 
IF _xCST_ADDR C.CUOFF, P_STAT] EQLU ONLINE 
BEGIN 
DUR C. :LSLUNI, = = DU_HERR; 
DODU (.LSLUN i DROP UNIT 
END; 
END: ' 
END: ! 
END; ! ROUTINE HARD_ERR 
.SBTTL HARD.ERR GLOBAL ROUTINES 
HARD.ERR: : 
MOV RI s(SP) 
0000006 MOV T.ADDR 
000004 000030 ADD 4(SP), sbert) 
0000006 , MOV SUP. ERROR,RO 
000030 CAP 39cR1) RO 
0000006 MoV CUOFF .RO 
0000006 ADD CST.ADDR,RO 


+ Bie 


cracee CZRCDAO ae i A sigs EXERCISER 


GLOBAL ROUTI 
032710 020000 
001406 
0000006 
000003 000000G 
1$: 


3; Routine Size: 28 words, 
> Maximum stack depth per invocation: 


Routine Base: 
3 words 


M12 


11-Jul-1983 
8-Jul-1983 


—— 
LSLUN,RO 
oo 
(SP)+,R1 

PC 


SCODES + 5774 


08:42 
17:46: 


251 


34 


SEQ af 
VAX-11 Bliss-16 V3-555 page 
DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (29 





cZRCD2 
v01.0 


CZRCDAO it 5 Ds EXERCISER 11-Jul-1983 i 42:51 VAX-11 Bliss=16 V3-555 


GLOBAL ROU 46:34 DUA2: CDOUCETTE .CZRCD 


N 12 


88-Jul-1983 


GLOBAL ROUTINE UPD_IOC (ADDR, COUNT) : NOVALUE = 


14 
i THIS ROUTINE IS CALLED (A) DURING THE MULTI-DRIVE SUBTEST FROM MD_TALLY 
i FOR ALL 1/0 TRANSFER RETURN PACKETS WITH ‘SUCCESS’ STATUS CODES, AND 
| ABIES BE BEA nda STs Pumpoce ts 10 edate tHe 10 cot 
: (NUMBER OF READS, WRITES. oR stens) FOR THE CURRENT UNIT. 
i AFTER THE LOW-ORDER FIELD OF THE APPROPRIATE COUNT IS , UPDATED. THIS 
i ROUTINE CHECKS FOR ONE OF TWO OVERFLOW CONDITIONS: (A) IF THE 
' HIGH“ORDER FIELD OF THE COUNT IS ZERO, THEN THE L I 
i CHECKED FOR EXCEEDING 65,000. IF TRUE, THEN THE HIGH-ORDER FIELD IS 
' LOADED WITH 65 5,000) AND THE LOW-ORDER FIELD IS REDUCED BY 
i ,000. IF THE HIGH-ORDER FIELD OF THE UPDATED COUNT IS NON-ZERO, 
i THEN THE LOW-ORDER FIELD 1S CHECKED FOR EXCEEDING 1000. IF TRUE, THEN 
THE HIGH-ORDER. F ELD IS INCREMENTED BY 1 FOR EACH 1000 SUBTRACTED FROM 
HE LOW-ORDER FIELD. 
i INPUTS: 
i ADDR - ADDRESS OF THE LOW-ORDER FIELD OF THE 1/0 COUNT TO BE 
i UPDATED (IN THE CURRENT UNIT'S STATISTICS TABLE (TALLY)) 
x COUNT - AMOUNT TO BE ADDED TO THE 1/0 COUNT 
BEGIN 
.ADDR = ..ADDR + .COUNT; ' UPDAIE THE COUNT (LOW-ORDER FIELD) 
«(ADDR + 2) EQLU 0 ! IF _HIGH-ORDER FIELD IS ZERO 
BEGIN ? 
IF “ADDR GEQU 65000 IF LOW-ORDER FIELD EXCEEDS 65,000 
BEGIN ; 
.ADDR = ..ADDR - 65000; ' BECOMES LOW-ORDER 1000 
C.ADDR + 2) = 65; i HIGH-ORDER (TIMES 1000) 
END; 
END 
ELSE IN ' ELSE = HIGH-ORDER FIELD IS X1000 
WHILE = -ADDR GEQU 1000 DO ' WHILE LOW-ORDER FIELD EXCEEDS 1000 
ADDR = ..ADDR - 1000; ' SUBTRACT 1000 FROM LOW-ORDER FIELD 
G ADDR +°2) = .(.ADDR + 2) + 1; i INCREMENT HIGH-ORDER FIELD 
END; 
END; 
ENC; ! ROUTINE UPD_I0C 


SEQ abd 
JCZRCD2.SRC;5 (509° 


B 13 


CZRCD2 C2RCDAQ, X25 wis EXERCISER M-Jul=1983 08:4 42:51  - VAX=11 Bliss-16 V3-555 Page 
v01.0 GLOBAL R 8-Jul-1983 17:46:34  _DUA2:CDOUCETTE.CZRCDICZRCD2.SRC;5 (30 
.SBTTL UPD.IOC GLOBAL ROUTINES 
000000 010146 UPD.10C:: 
MOV R1,-(SP) : 
000002 01 000006 MOV 6(SP) ,RO + ADDR,* 
000006 066610 000004 ADD 4 (SP). (RO) : COUNT,* 
000012 012701 000002 MOV ne, R1 ; 
000016 060001 ADD R1 
000026 005711 TST eid 
000022 001010 BNE 1$ 
000024 021027 176750 CMP (RO) ,#176750 : 
000030 103414 BLO 
000032 062710 001030 ADD #1030, (RO) : 
000036 012711 000101 MOV #101, (R1) : 
000042 07 BR : 
000044 021027 001750 1$: CMP (RO) ,#1750 : 
000050 103404 BLO 
000052 162710 001750 SUB #1750, (RO) : 
000056 005211 INC (R1) : 
000060 000771 BR 1$ : 
000062 012601 2$: MOV (SP)+,R1 ; 
000064 000207 RTS PC 
: Routine Size: 27 words, Routine Base: SCODES + 6064 


: Maximum stack depth per invocation: 2 words 


cZRCD2 
v01.0 


2 
Po 


: Routine Size: 
+ Max imum stack 


C 13 


a. eH A. EXERCISER 11-Jul-198 
GLOBAL R 8-Jul-198 


GLOBAL ROUTINE OVF_CHK (ADDR) : NOVALUE = 


7:46:34 DUA2: CDOUCETTE .CZRCD 


'+ 
: THIS aie IS ae (A) DURING THE MULTI-DRIVE SUBTEST FROM MD_TALLY 
; FOR ALL 1/0 TRANSFER RETURN PACKETS WITH ‘‘SUCCESS'’ STATUS CODES, AND 
: (B) DURING THE DM EXERCISER SUBTEST FROM DM_TALLY WHEN EXAMINI NG THE 
; COMMUNI OMM POSE 15 TO CHECK FOR GVERFLOW IN 
: CERTAIN STATISTICAL FIELDS OF THE CURRENT UNIT. SPECIFICALLY, THE 
: LOW-ORDER FIELD OF THE NUMBER OF BYTES READ OR WRITTEN IS CHECKED FOR 
: EXCEEDING 1000. IF TRUE, THEN THE HIGH-ORDER COUNT IS INCREMENTED. IF 
: THAT EXCEEDS 1000, THEN THE MEGABYTE COUNT IS INCREMENTED. 
: INPUTS: 
; ADDR = ADDRESS OF THE BR_LO OR BW_LO FIELD FOR THE CURRENT UNIT 
(SEE STATISTIC TABLE (TALLY) LAYOUT) 
BEGIN 
' 


meee | ene GEQU 1000 DO IF LO-ORDER OVERFLOW 


-ADDR = ADDR =- 1000; ' SUBTRACT 1000 
(.ADDR + +2) = -(.ADDR + 2) + 13 ' INCR HI-ORDER 
END; 
IF .(.ADDR + 2) GEQU 1000 ' IF HI-ORDER OVERFLOW 
THEN ! THEN 
BEGIN 
(.ADDR + 2) = .(. ADDR + 2) = 1000; ' SUBTRACT 1000 
(.ADDR + 4) = .(. ADDR + 4) + 1; ' INCREMENT MBYTES 
END; 
END; ! ROUTINE OVF_CHK 
-SBTTL OVF.CHK GLOBAL ROUTINES 
OVF .CHK:: 
MOV R1,-(SP) 3 
000004 MOV 4(§P), RO 3; ADDR,* 
000002 MOV oe oft 2 
ADD 
001750 1$: CMP {RO #1750 : 
001750 SUB #1750, (RO) 5 
INC (R1) : 
BR 1$ é 
001750 2$: oe (R1),41750 ; 
001750 SUB #1750, (R1) 
000004 INC 4(RO) 3 
3$: ort ha P 
22 words, Rout ine Bese: SCODES + 6152 


depth per invocation: 2 words 


oe 08:42:3) VAX-11 Bliss=-16 V3-555 


SEQ 0158 
Jczaco2.src:5 (31) 


D 13 


SEQ a 
cZRCd2 CZRCDAO eH — EXERCISER 11-Jul-19 : VAX-11 Bliss=-16 V3-555 ese 
v01.0 GLOBAL ROUT! 8-Jul-19 : DUA2: CDOUCETTE .CZRCDICZRCD2.SRC55 (32 


GLOBAL ROUTINE XFR_CHK : NOVALUE = 


14 


COMMUNICATION AREA (DM_ COMM). 18° 

NUMBER OF BYTES TRANSFERRED THUS FAR CURRENT UNIT, TO CHEC 
THIS SUM AGAINST THE OPERATOR=SPECIFIED LIMIT. IF THE LIMIT HAS BEEN 
REACHED, THEN THE UNIT IS REMOVED FROM THE CURRENT PASS. 


PLEGET INPUTS: 
T_ADDR =- pasted OF THE CURRENT UNIT'S STATISTICS BLOCK (TALLY) 
LSLUN = CURRENT UNIT NUMBER 
CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST 
DMC_ADDR = ADDRESS OF CURRENT CONTROLLER'S DM_COMM AREA 
CUOFF = CST OFFSET FOR CURRENT UNIT 


BEGIN 


LOCAL 
SUM : WORD; ! TOTAL NUMBER OF BYTES TRANSFERRED TO/FROM A UNIT 


IF ; SWP_XFER NEQU 0 if A TRANSFER LIMIT WAS SPECIFIED 
BEGIN ; 


SUM = .T_ADDR CMB_READ] + .T_ADDR CMB_WRITI; ! TOTAL BYTES TRANSFERRED 
IF ,SUM GEQU .SWP_XFER : ce LIMIT IS REACHED 


BEGIN 


NT} ! MARK UNIT INA 
est Abbr tu, CNT] = .CST roar CU_CNTJ = ! DECREMENT ACT 
OF RANGA. “ADDR C.CUOFF = . ALLBIT) = aS, : He . TEx at cre 


THEN 
BEGIN 


PRINTF (CRLF); 
PRINTF Abe ONS wn ~SECONDS); ! ELAPSED TIME 
PRINTF ( 6_07, -LSLUN ! "UNIT XX. = TRANSFER LIMIT REACHED"* 


NACTIVE 
IVE UNIT COUNT 
STOP FPT ON UNIT 


END; 
END; 
END; ! IF A TRANSFER LIMIT WAS SPECIFIED 
END; ! ROUTINE XFR_CHK 


_ SBTTL XFR.CHK GLOBAL ROUTINES 
0000006 XFR.CHK 
“ISR R1,$SAVE2 


006004 013702 0000006 MOV SwP.XFER,R2 





cZRCD2 


000066 
000074 104450 


Mi0222Oo 
¥SRBaENSRSS 
=—DOoo0000—o000— 
RONNGWUE ONE 
- a rN rN 
o o 


-, SESGSEESSSSEESEEERE 
, SER FSESSKS 


: Routine Size: 


CZRCDAO at 5 Bin EXERCISER 
GLOBAL ROU 


0000006 
177777 |=(177772 


0000006 
000001 


0000006 
0000006 
000002 


000020 
1$: 


61 words, 


Routine Base: 
+ Maximum stack depth per invocation: 13 word 


E 13 


11-Jul-198 
8-Jul-198 


CST.ADDR,RO 
5(R 

CUOFF .RO 
DMC.ADDR,RO 
#-1,-6(RO) 
1$ 

ACRLF ,<(SP) 
#1,-(SP) 


Stet f (SP) 


eo 


LSLUN, (SP) 
aMSG. £O2.-(SP) 


o(S 


#20,SP 
PC 


SCODES + 6226 
s 


VAX-11 Bliss=-16 V3-555 
DUA2: CDOUCETTE .CZRCD 


3 SP,* 


3 SP,* 


: SP,* 


Pa 
JczRcb2.SRC:5 (329. 


3091 
3092 
3096 
3097 
3098 


3099 
3103 


3104 


3105 


F 13 


SEQ 0161 
CZRCD2 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 99:40:31 VAX-11 Bliss=-16 V3-555 page 
v01.0 GLOBAL ROUTINES 8-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (33 


GLOBAL ROUTINE SEND (INDEX) = 


14 
: IF THE CURRENT RC25 IS ONLINE AND ITS CRING IS NOT FULL, THEN THIS 
ROUTINE ‘‘SENDS'’ A COMMAND TO THE RC25 BY LOADING THE ENVELOPE 
RIPTOR OF AN MSCP ENVELOPE INTO THE COMMAND RING AND REAVING THE 
CORD OF THE SENT COMMAND IS FE IN THE 
C D LIST ett Me ih AMD A COMMAND 


INPUTS: 
INDEX = jou MSCP ENVELOPE CONTAINING THE COMMAND TO 


IMPLICIT INPUTS: 
CCTLR = CURRENT CONTROLLER NUMBER 
DCT_ADDR = ADDRESS OF CURRENT CONTROLLER'S DCT 
OCL_X1, OCL_X2 - STARTING/ENDING INDECES OF CURRENT 
CONTROLLER'S OUTSTANDING COMMAND AREA 


ea) ds 2 Ss sd ot YI SH 


Te USO RON US sane bee 


AAAAOX 
VSS ISP IS SRNSGARUN AS SONU RW =O OM'y USAW 9 ODONOUSWN —O OONOUS 


4 


SculN 


LOCAL 
SLOT_ADDR, 
TEMP : WORD; 


IF ((.DCT_ADDR CSTAT] EQLU ONLINE) AND 
(.DCT_ADDR CCRING_CNTJ LSSU CRING_LEN)) 


N 
BEGIN 
preg te C.DBeh. CRN_LOJ = (CRN = .CRN + 1); 


T_ADDR 
- SLOT_ADDR 
SLOT 


ASSIGN CMD REF NUM 

ADDR OF NEXT COMMAND SLOT 

yt etd Ow ores (LO) INTO COMMAND SLOT 
LOAD ENV DESC (HI) INTO COMMAND SLOT 
ADVANCE TO NEXT COMMAND SLOT 
—— END OF CRING 


CYCLE BACK TO SEGINNING 
RESTORE CR_NEXT POINTER IN DCT 
INCR # OF COMMANDS IN CRING 


FOR EACH OUTC ENTRY 


IF .SLOT_ADDR 
THEN 
SLOT_ADDR = .DCT_ADDR CCR_BEGI; 


DCT_ADDR” CCR_NEXTJ = .SLOT_ADDR; 
DCT_ADDR CCRING_CNTJ = .DCT_ADDR CCRING_CNT) + 1; 


INCR COUNT FROM .OCL_X1 TO .OCL_X2 DO 
BEGIN 


ee ee ee me ee ce me ee ce a a ee ce ee ce ce ae ed ed ed ed ed ee - 
AAOUUMUMUUUIUIUIE BEE RRR SSW 


al C.COUNT] LSS 0 ! IF A SPARE SLOT IS FOUND 
BEGIN 


OUTC_LIST C.COUNT] = .INDEX; 
1 ~TIP_FLAG 


OUTC_TIMR C.COUNT] = TO_INIT 


LOAD MSCP_ENV INDEX 
IF INIT SOBTEST IN PROGRESS 


T 
SET INIT SUBTEST COMMAND TIMER 


WWW WWW WWNWWWNWWWNAAAAAAWAWAW AAA AAAAAANAAAAAAAAAAAAAANAAAA 


ea 3H) te 





G 13 


SEQ 0162 
25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-55 page 
INES 8-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (33 


ELSE ! OTHERWISE 
BEGIN 


IF BIT_TST (SWP_FLAGS, SWF_DM) ' IF DM EXERCISER IS BEING RUN 
OUTC_TIMR C.COUNT] = TO_DUP | SET DUP COMMAND TIMER 
E ' OTHERWISE 
OUTC_TIMR C.COUNT) = TO_10; i SET 1/0 TRANSFER COMMAND TIMER 
END; 
EXITLOOP; 
END; ! IF A SPARE SLOT IS FOUND 
tw; ! QUTC_LIST SEARCH LOOP 


TEMP = .RC25_ADDR CRCIP, RC_ALLI; ! READ IP TO FORCE PORT TO POLL 
RETURN SUCCESS; 


END 
ELSE ! IF DEVICE IS NOT ONLINE 
RETURN FAILURE; 


END; ! ROUTINE SEND 


CZRCD2 CZRCDAO RC 
v01.0 GLOBAL ROUT 


WWW NW ANWAWNAANAAAAANNAA 
O00 OO 000 00 00 00 00 00 09 0909 IAIN III 


SEND GLOBAL ROUTINES 
R1,$SAVE2 

=(SP) 

DCT.ADDR,R1 

(R1) 

7$ 

(R1) ,#10 


$ 
12(SP) ,-(SP) 
#104,-(SP) 


R2.CRN 
ony eee 


MSCP.ENV(RO), (R2)+ 
MSCP.ENV#2(RO) , (R2)+ : #-SLOT.ADDR 
R2,12(R1) : SLOT.ADDR,* 


; *,SLOT.ADDR 
; *,SLOT.ADDR 


10(R1) ,R2 ; *,SLOT.ADDR 
R2,20(R1) : SLOT.ADDR,* 


OCL.X1,R1 : *, COUNT 
kl : COUNT 


5$ 

OUTC.LIST(R1) ; (COUNT) 
000016 0000006 MOVB 16(SP) ,OUTC.LIST(R1) ; INDEX,*(COUNT) 

R1,R0 ; COUNT,* 


gegesseseaes 


WWM 
ESRVSSNSRSan 





CZRCD2 CZRCDAO RC25 DISK EXERCISER 
v01.0 GLOBAL ROUTINES 

000140 006300 

000142 062700 0000006 


46 132737 000001 0000006 
001403 
012710 000170 
000416 
132737 000002 0000006 
001403 
012710 000036 
200 000407 
000202 012710 000454 
206 000404 
005201 
000212 9c0137 0000006 
000220 017766 0000006 000004 
000230 012700 000001 
0004 


: Routine Size: 82 words, Routine Base: 
words 


: Maximum stack depth per invocation: 


3$: 


4$: 
5$: 


6$: 


7$: 
8$: 


H 13 
11-Jul-1983 08:42: 
8-Jul-1983 17:46 


RO 
ADD #OUTC.TIMR,RO 
BITB #1, 1IP.FLAG 


BEQ 

oe #170, (RO) 
BITB #2,SWP.FLAGS 
BEQ 


4 
MOV #36, (RO) 
BR 6 
MOV #454, (RO) 
6$ 


BR 

INC R1 

CMP R1,0CL.X2 
BLE 

MOV @RC25.ADDR.4(SP) 
cMP (SP)+, (SP)+ 
MOV #1,R0 

BR 8$ 

CLR RO 

TST (SP)+ 

RTS PC 


SCODES + 6420 


VAX=11 Bliss-16 V3-555 
_DUA2: CDOUCETTE. CZRCDICZRCD 


COUNT 
COUNT ,* 


*,RC.REG 


81 
2.SRC:5 (339° 


cZRCD2 
v01.0 
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I 13 
SEQ oe 

CERCOAG ac a. EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-5 82 
GLOBAL R 8-Jul-1983 1 Fi06:34 _DUA2: CDOUCETTE. CoReDICZRCD2. SRC;5 (529° 
GLOBAL ROUTINE WAIT : NOVALUE = 
'¢ 
: THIS ROUTINE IS CALLED DURING THE eee eH or EACH 

MSCP MESSAGE IS SENT TO A DEVICE. ITS PURPOSE IS TO LOCATE THE LONE 
OUTSTANDING Sage AND TO MAINTAIN LA ue UNITE L EITHER (A) THE 
DEVICE RESPONDS TO THE COMMAND THROUGH AN RC25 INTERRUPT, RESULTING IN 
. RETURN PACKET BEING DEPOSITED INTO THE 1/0 DONE QUEUE (1000), OR (B) 

THE COMMAND MESSAGE TIMER EXPIRES. 

IMPLICIT INPUTS: 

CCTLR = CURRENT CONTROLLER NUMBER 


OCL_X1, OCL_X2 = STARTING/ENDING INDECES OF CURRENT 
CONTROLLER'S OUTSTANDING COMMAND AREA 


BEGIN 


CAL 
CX : SIGNED WORD, QUT STANDING COMMAND'S OUTC_LIST INDEX 
MX : WORD, ! IND NVELOPE 
RX : WORD, 
M_ADDR, ' MSCP ENV ADDRESS 
R_ADDR : REF BLOCK CRP_LEN, WORD] FIELD (RP_FIELDS); “! RETURN PACKET ADDRESS 
CX = <1; ' ASSUME COMMAND NOT FOUND 
INCR COUNT FROM .OCL_X1 TO .OCL_X2 DO ' SEARCH OUTC_LIST FOR THE 
BEGIN ' OUTSTANDING COMMAND 
IF .OUTC_LIST C.COUNT] GEO 0 ' IF THIS IS IT 
THEN ' THEN 
BEGIN 


Cx = .COUNT; ! SAVE OUTC INDEX OF COMMAND 
EXITLOOP; ! DONE HERE 


END; 

END; 
T_FLAG = FALSE; ' CLEAR ONE SECOND TIMING FLAG 
i REPEAT UNITL RC25 INTERRUPT 

BEGIN i OR TIMEOUT 
IF .T_FLAG ' IF ONE SECOND HAS ELAPSED 
THEN i THEN 

BEGIN 

IF scx GEO 0 ' LF OUTSTANDING COMMAND WAS FOUND 

BEGIN : 


SETPRI (PRIOS); 
IF .OUTC_TIMR C.Cx) GTRU 0 


EN 
BEGIN 


! LOCK OUT RC25 i 
fan IMER STILL ACTIVE 


J 13 
SEQ 0165 
cZRCD2 po ngy aces -_— EXERCISER 11-Jul-1983 0 > 51 VAX=11 Bliss=-16 V3-555 Pa age 83 
¥01.0 GLOBAL B-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (34 


OUTC_TIMR C.CX) = ore TIMR C.CX] = 1; ! DECREMENT TIMER 
td -OUTC_TIMR C.C cx} EQL0 0 i IF MESSAGE HAS TIMED OUT 


HEN i THEN 

BEGIN 

GET A_RETURN PACKET 
GET COMMAND ENV IND 


ENV_INDEX 
CALCULATE Ag ADDRESS 
a ls ENV_ADDR 


OPY COMMAND 10. RETPK 
SET PACKET SOURCE AS DRIVER" 
COMMAND TIMEOU 
CONTROLLER NUMBER 
"SEND’’ THE PACKET 
PUT_ENV (.MX); RETURN COMMAND ENV TO POOL 
OuTt_LIST C.CxX] = - INIT OUTC_LIST ENTRY 
END; ! IF MESSAGE TIMER EXPIRED 
END; ' IF TIMER STILL ACTIVE 
SETPRI (PRIOO); ! RESTORE INIT SUBTEST PRIORITY 
END; ! IF OUTSTANDING COMMAND WAS FOUND 
T_FLAG = FALSE; ! CLEAR ONE SECOND TIMING FLAG 
END; ! IF ONE SECOND HAS ELAPSED 


END ! UNTIL A PACKET IS *‘SENT*’ FROM HERE 
UNTIL .I0DQ_IN NEQU .JODQ_OUT; : OR RC25 INTERRUPT PROCESSING 


END; ! ROUTINE WAIT 


RP_LEN * 2); 
EN NV_LEN * 2): 
oR "ADDR? RP_LEN); 
_ADBR te C1D_ORIVER;: 
R-ADDR EMeSTYP at pine : 
ADDR CCTL 


WAIT GLOBAL ROUTINES 
R1,$SAVES 

#-1,R1 

OCL.X1,RO 

R1,RO 

QUTC.LIST(RO) 

RO,R1 ; COUNT,CX 
3$ 


: RO : COUNT 
0000006 me RO, OCL.x2 ; COUNT. 


0000006 3$: T.FLAG 
000001 0000006 : : Sot PAG 


R1 

6$ 
000240 MOV 2e40.R0 

R1,R0 

RO 





000074 062700 


Seseeeseees 
HEONBESRERS 
5 


x 
rt) 
eS 
NO 


ss 
yy 
° 
=e 
— 
NN 
Ow 
NO 


000304 
000306 000207 


3; Routine Size: 


K 13 


CZRCDA, RC2S isk EXERCISER 11-Jul-1983 08:42:51 
GLOBAL R B-Jul-1983 17:46:34 
0000006 ADD #OUTC.TIMR,RO 
: TST (RO) 
BEQ S$ 
DEC (RO) 
BNE 5$ 
0000006 MOV CCTLR,=(SP) 
005070' JSR PC,GET.RETPKT 
MOV RO.R 
0000006 mMovB OUTC. LIST(RI), RG 
MOV R5, (SP) 
000060 400, =(SP) 
0000006 JSR PC ,BLSMUL 
0000006 ADD #RETPKT,RO 
MOV 0, 
MOV R4. (SP) 
000104 MOV #104,-(SP) 
0000006 JSR PC,BLSMUL 
0900006 ADD #SCP.ENV,RO 
MOV RO, 
MOV R3, (SP) 
000004 ADD #4. (SP) 
MOV R2.=(SP) 
000030 MOV #30,-(SP) 
004352" JSR PC, COPY.BLK 
000002 MOV #2.RO 
ADD R2.RO 
000003 000001 MOVB «#3 1 (RO) 
0000006 MOV CCTLR,-(SP) 
177760 BIC 77760 (SP) 
000100 mova #100, (RO) 
BISB (SP)+, (RO) 
MOV R5, (SP) 
005466" JSR PC. IN. 1000 
MOV Ra. se) 
005014" JSR T.ENV 
000377 0000006 MOVB aS? OUTC.LIST(R1) 
000012 ADD 2,SP 
5$: CLR 
TRAP 
0000006 6$: CLRB —s- TT. FLAG 
0000006 0000006 7$: CMP 10D0. IN, 1000. 0UT 
OR 


100 words, Routine Base: * SCODES + 6664 
s 


+ Maximum stack depth per invocation: 12 wor 


VAX-11 Bliss-16 V3-555 
DUA2: CDOUCETTE. CZRCDIC 


* RX 
* (CX) ,MX 
RX,* 


3 *,R.ADDR 
; MX,* 


*,M.ADDR 
M.ADDR,* 


R.ADDR,* 


R.ADDR,* 


RX,* 


MX,* 
#,%(CX) 


page 84 
ZRCD2.SRC;5 (34 


3261 


3262 


CZRCD2 
v01.0 


000034 


; Routine Size: 
3; Maximum stack 


3; Routine Size: 
: Maximum stack 


5 


©wooco-v 


L 13 


CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:60: 3! VAX-11 Bliss-16 V3-555 rege 85 
1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (35 


ERROR MESSAGE SUBROUTINES 8-Jul- 
ZSBTTL “ERROR MESSAGE SUBROUTINES’ 

ROUTINE EMS_ET : NOVALUE = 

+ 


i THIS ROUTINE PRINTS THE ELAPSED TIME THAT PRECEDES ALL BASIC ERROR 
} MESSAGES. 


PRINTB (ETIME, .HOURS, .MINUTES, .SECONDS); 


EMS.ET: MO s § 
000000G MOV MINUTES, -(SP) 
0000006 MOV HOURS ,- (SP) 
0000006 MOV WETIME ,-(SP) 
000004 MOV #4,-(SP) 
MOV SP,RO ; SP,* 
TRAP 
000012 ADD #12,SP 
RTS PC $ 
15 words, Routine Base: SCODE$S + 7174 


depth per invocation: 7 words 


ROUTINE EMS_SA : NOVALUE = 


'¢ 
: THIS ROUTINE PRINTS (EXTENDED) THE GLOBAL DATUM ‘'SA_REG'’ WHICH CONTAINS 
: THE CONTENTS OF THE SA REGISTER. 


PRINTX (EX_SA, .SA_REG); :s SA: XXXXXX(0)** 


7 fi er ize ERROR MESSAGE SUBROUTINES 


0000006 EMS.SA: MO A.REG,=(SP) : 
0000006 MOV #EX.SA,=(SP) 
000002 MOV #2,~(SP) 
MOV SP,RO 3 SP,* 
TRAP 
000006 ADD #6,SP 
RTS PC 3 


11 words, | Routine Base: $CODE$ + 7232 
depth per invocation: 5 words 


ROUTINE EMS_CRN : NOVALUE = 
'+ 


: THIS ROUTINE PRINTS (EXTENDED) THE COMMAND REFERENCE NUMBER OF THE 
CURRENT RETURN PACKET. ONLY THE LOW-ORDER WORD IS SIGNIFICANT. 


SEQ 0167 


3295 


3288 


3303 


3296 





Mm 13 


SEQ 0168 
CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-555 age 
v01.0 ERROR MESSAGE SUBROUTINES 8-Jul-1983 17:46:34 DUA2: CDOUCETTE.CZRCDICZRCD2.SRC;35 (35 
3 3311 PRINTX (EX_CRN, .RP_ADDR CCRF_LOJ); . > CMD REF NUM: XXXXXX(0)"° 
.SBTTL oy CRN ERROR MESSAGE SUBROUTINES 
000000 013700 0000006 EMS. CRN: MOV PADDR, RO 3 3311 
000004 016046 000004 MOV BRO) tSP) 
000010 012746 000000G MOV #EX.CRN,=(SP) 
000014 012746 000002 MOV #2,-(SP5 
000020 010600 MOV SP,RO 3: SP,* 
000022 104415 TRAP 15 
000024 062706 000006 ADD #6,SP 
000030 000207 RTS PC 3 3304 
3; Routine Size: 13 words, Routine Base: $CODES + 7260 
: Maximum stack depth | per invocation: 5 words 
3 3312 ROUTINE EMS_STC : NOVALUE = 
psa? 
3 '+ 
; 3315 ! THIS ROUTINE PRINTS (EXTENDED) THE GLOBAL DATUM ‘'ST_CODE’* (STATUS CODE) 
; 3316 =! IF IT IS NON-ZERO. 
; 3317 !- 
3 3318 
é 3319 IF .ST_CODE NEQU 0 
, 3320 TH ; 
3 3321 PRINTX (EX_SC, .ST_CODE); ;= STATUS CODE: Xx(0)°° 
-SBTTL EMS.STC ERROR MESSAGE SUBROUTINES 
000000 013700 000000G EMS.STC:MOV ST.CODE,RO 3 3319 
000004 001411 BEQ 1 
000006 010046 MOV RO,-( 3 3321 
000010 012746 0000006 MOV #EX. Se csp 
000014 012746 000002 MOV #2,-(SP) 
000020 010600 MOV SP,RO 3: SP.* 
000022 104415 TRAP 15 
000024 062706 000006 ADD #6,SP 
000030 000207 1$: RTS PC ; 3312 
: Routine Size: 13 words, Routine Base: S$CODE$ + 7312 


: Maximum stack depth per invocation: 5 words 


3322 ROUTINE EMS_SBC : NOVALUE = 


: 332, !¢ 

: 3325 | THIS ROUTINE PRINTS (EXTENDED) THE a. OBAL DATUM ''SB_CODE"’ (SUB-CODE) IF 
: 3326! EITHER THE STATUS CODE (ST_CODE) OR THE SUB-CODE IS NON-ZERO. 

: 3327 | NON-ZERO SUB-CODE ALWAYS HAS SIGNIFICANCE, WHEREAS A ZERO Ra-CODE ONLY 
: 3328 : HAS MEANING WITH A NON-ZERO STATUS CODE). 

: 3330 

: 3331 IF (.ST_CODE OR .SB_CODE) NEQU 0 

: 3332 THEN et - 

: 3333 PRINTX (EX_SB, .SB_CODE); ' SUB=CODE: XXXX(0) 





czRrCd2 
v01.0 


: Routine Size: 
; Maximum stack 
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CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX=11 Bliss=16 V3=555 


N 13 


ERROR MESSAGE SUBROUTINES 8-Jul-1983 17:46:34 _DuUAc : C(DOUCETTE.CZRCD 


-SBTTL EMS.SBC ERROR MESSAGE srvetoe 
EMS. SBC :MOV ST.CODE ,RO 
B SB. CODE .RO 


1$ 
$8. CODE ,-(SP) 
#EX.SB,-(SP) 
#2,-(SP) 
SP,RO 
15 
#6,SP 

1$: PC 


16 words, Routine Base: $CODES + 7344 
depth per invocation: 5 words 


ROUTINE EMS_CMD : NOVALUE = 


'¢ 


Lib ROUTINE PRINTS (EXTENDED) THE OPCODE AND COMMAND MODIFIER (CIF 
PRESENT) OF «HE CURRENT RETURN PACKET. THESE FIELDS a **TRANSLATED*' 
INTO ENGLISH TEXT RATHER THAN PRINTED AS RAW NUMBERS 


IMPLICIT INPUTS: 
RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET 


BEGIN 
LOCAL 


COMMAND : WORD; ! COMMAND OPCODE 


PRINTX (EX_CMD); ih COMMAND: °° 
COMMAND = [RP 


ADDR ewes AND OP_MSK; ! GET OPCODE ALONE 


SELECTONEU . COMMAND 


COP_ESP] : PRINTX (EX_ESP); 
COP_SCCJ : IF .IIP_FLAG 


HEN 
—— (EX_SCC) 


PRINTX (EX_SND); 
: PRINTX (EX_ONLJ; 
: PRINTX (EX_ v4 tf 
COP _WRTJ PRINTX (EX 
COTRERWISE] : PRINTX (EX~ “05. “RP_ ADDR :wpcob3); ! ""™xx(0)"* 


TES; 


eho SUPPLIED PROGRAM’ 
F INIT SUBTEST IN PROGRESS 
THEN py 3 2 OPCODES ARE THE SAME) 


IF (((. COMMAND £QLU OP_RD) OR (.COMMAND EQLU OP ir AND 


(BIT_TST (RP_ADDR™CCMDMOD], MD_CMP))) F COMPARE MODIFIER IS PRESENT 


: THEN 

NPRINTX (EX_CMP) 1 *"=COMPARE<CR><LF>"' 
! OTHERWISE 

PRINTX (CRLF); ! <CR><LF> 


SEQ 0169 
Pa age 87 
ICZRCD2.SRC35 (35 


3331 


3333 








B 14 


CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:31 VAX=11 Bliss=-16 V3-555 
v01.0 ERROR MESSAGE SUBROUTINES 8-Jul-1983 17:46:34 


SEQ 0170 


age © 
DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (35 


END; ! ROUTINE EMS_CMD 


EMS.CMD ERROR MESSAGE SUBROUTINES 


#EX.CMD, =(SP) 
#1,-( 


EMS.CMD:JSR 
MOV 
SP5 


14(R1) ,R2 
#177600,R2 
R2,M2 


1$ 
ei Nei 


o= (SP 


o 


BR 7$ 
000004 : R244 


BNE 
000001 0000006 #1,1IP.FLAG 


0000006 WEX.SCC, (SP) 
000001 #1=(SP) 


BR 7$ 
0000006 : #EX.SND, (SP) 
000001 MOV #1 .=(SP) 


7$ 
000011 : R2,#11 


0000006 #EX.ONL, (SP) 
000001 #1.=(SP) 


7$ 
000041 : R2,441 
0000096 #EX.RD, (SP) 
000001 MOV #1,-(SP) 
B 7$ 
000042 : R2 #42 
BN 


0000006 #EX.WRT 
000001 #1 .=(SP) 


(SP) 


: _ (SP) 
000014 14(R1), (SP) 








czRCD2 
v01.0 


: Routine Size: 


: Maximum stack 


CZRCDAO RC25 DISK EXERCISER 
ERROR MESSAGE SUBROUTINES 


0000006 
000002 


000041 
000042 


0000006 
040000 000012 


0000006 

000001 

0000006 9$: 
000001 

000010 10$: 


113 words Routine Base: 
depth per invocation: 9 words 


ROUTINE EMS_LBN : NOVALUE = 


'+ 


C 14 
11-Jul=1 


8-Jul-1 
#EX.03,-(SP) 
#2,-(SP) 
SP.RO ; SP,* 
15 


(SP)+ 
R2,441 


R2,42 

9$ 

RP. ADDR,RO 
#40000, 12(RO) 


#EX.CMP, (SP) 
#1, (SP) 


15 

10$ 
#CRLF , (SP) 
#1,-(SP) 


#10,SP 
PC 


SCODES + 7404 


: THIS ROUTINE al vs sab ge 2 ONE OF TWO sour NUMBERS APPEARING IN 


FI 
ENVELOPE. HOWEVER, IF THE ° 


INDICATES "BAD BLOCK REPORTED", 


J 

1 

{ 

i 

PRINTED. 

IMPLICIT INPUTS 

' 

BEGIN 

3£ BIT_TST (RP_ADDR CFLAGS, EF_BBR) 
PRINTX (EX_8B, .RP_ADDR CBBLK_LOJ) 


SE 
PRINTX (EX_LBN, .RP_ADDR CLBN_LOJ); 


END; 


0000006 


EMS.LBN:MOV 
000014 TST 


BPL 


FIELD IS PRINTED; THIS 
eit C D 
RETURN PACKET 


RP "ADDR - ADDRESS OF THE CURRENT RETURN PACKET 


' IF BAD BLOCK REPORTED 
i ** BAD BLOCK REPORTED: XXXXX."* 
i OTHERWISE 

LBN: XXXXX."" 


! ROUTINE EMS_LBN 


-SBTTL oe: LBN —— MESSAGE enamarti stay 


MG (RO) 
1$ 


VAX-11 Bliss-16 V3-555 
DUA2: CDOUCETTE.CZRCD 


SEQ “ 
rege 5 89 
JCZRCD2.SRC35 (35 











D 14 


SEQ wat 
CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss=16 V3-555 rege 
v01.0 ERROR MESSAGE SUBROUTINES 8-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC35 (35 
40(RO) ,~(SP) ; 3394 
#EX.BB,-(SP) 
#2 ,~(SP) 


15 


$ 

50(RO) .-(SP) 
#EX.LBN,=(SP) 
#2,-(SP) 
P-RO 


2$: #6,SP 
PC 


NAS 
—=sOLS 
ESOONSOOO 


; Routine Size: 25 word Routine Base: SCODE$S + 7746 

; Maximum stack depth ner “invocation: 5 words 

ROUTINE EMS_BC : NOVALUE = 

'¢ 

4 THIS ROUTINE gy (EXTENDED) Bi, wos COUNT FIELDS OF THE seed 
: RETURN PACKET: THE BYTE COUNT FROM THE COMMAND ENVELOPE AND THE 
: ACTUAL NUMBER OF BYTES TRANSFERRED (FROM THE RESPONSE ENVELOPE). 
i IMPLICIT INPUTS: 

RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET 

BEGIN 


PRINTX (EX_CBC, .RP_ADDR CCBCNT_LOJ); 1 ** BYTE COUNT IN COMMAND: ae 
PRINTX (EX_8C, .RP_ADDR CBCNT_LOJ); ! ** ACTUAL # OF BYTES TRANSFERRED: XXXXX."” 


END; ! ROUTINE EMS_BC 


-SBTTL EMS.BC ERROR MESSAGE SUBROUTINES 
0000006 -BC: MOV RP -ADDR.RO : 
000044 MO 
0000006 


000002 


end eed od 2 ad 
RENNES 
SOEEES 
MOA 


3 


0000006 
000020 
0000006 


000002 


=SO000]$SCoooo 
== ye tees 
Sxxo 


gS 
sss 


000012 
7 


; Routine Size: 23 words Routine Base: SCODE$ + 10030 
+ Maximum stack depth per “invocation: 7 words 


3416 ROUTINE EMS_BD : NOVALUE = 








E 14 


CZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1 


SEQ 0173 
983 99:4 VAX-11 Bliss-16 V3-5 
v01.0 ERROR MESSAGE SUBROUTINES 8-Jul-1985 17 


555 
~DUA2: CDOUCETTE. CoReDICZRCD2. SRC; 5 (359 


'¢ 
THIS ROUTINE PRINTS (EXTENDED) THE TWO-WORD 1/0 BUFFER DESCRIPTOR 
APPEARING IN THE CURRENT RETURN PACKET. 


IMPLICIT INPUTS: 
RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET 


QuUisrwn—ovon 


hr 


PRINTX (EX_8D, .RP_ADDR CBUFF_0J, .RP_ADDR CBUFF_1]); ! °* 1/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(0)"" 


-SBTTL EMS.BD ERROR MESSAGE SUBROUTINES 

EMS.BD: MOV RP. ADDR,RO : 
MO 26(RO) ,=(SP) 
24(RO) .=(SP) 
#EX.BD,-(SP) 


3,°(SP) 


1 
#10.SP 
PC 


: Routine Size: 15 words, Routine Base: S$CODE$ + 10106 
; Maximum stack depth per invocation: 6 words 


ROUTINE EMS_RP : NOVALUE = 


'4 
: THIS ROUTINE IS RESPONSIBLE FOR PRINTING (EXTENDED) THE RELEVANT FIELDS 
: OF THE CURRENT RETURN PACKET. 


! COMMAND REFERENCE NUMBER 

! SUB-CODE 

' COMMAND (AND MODIFIER) 
oe OR BAD BLOCK NUMBER 


! BYTE COUNTS 
! 1/0 BUFFER DESCRIPTOR 
! ROUTINE EMS_RP 


EMS.RP ERROR MESSAGE SUBROUTINES | 
PC,EMS.CRN 


FELESEE 
NASSeSF 


3 Routine Size: 13 words, Routine Base: $CODE$ + 10144 
: Maximum stack depth per invocation: 1 word 





CZRCD2 
v01.0 


: Routine Size: 
Maximum stack 


: Routine Size: 
> Maximum stack 


3450 


000000 004737 
000004 104423 
000006 000207 


: Routine Size: 
+ Maximum stack 


000004 013746 


CZRCDAO RC25 DISK EXERCISER 
ERROR MESSAGE SUBROUTINES 


BGNMSG (EMS_01); 

Rte 
000000v EMS.01:: 

RTS 


4 words, Routine or SCODES + 
depth per invocation: 2 words 


EMS_ET (); 
PRINTB (EBS_01, MAX_UNITS); 
ENDMSG; 


.SBTTL 
007174" MSEMS.01: - 
“JSR 
000020 
9000006 
0002 
000006 


13 words, Routine Base: S$CODES + 
depth per invocation: 5 words 


BGNMSG (EMS_10); 


000000v EMS. 10:24 R 


4 words, Routine Base: SCODES + 
depth per invocation: 2 words 


EMS_ET (); 
PRINTB (EBD_10, .RC25_ADDR + .OF_RC); 
ENDMSG; 

.SBTTL 
007174" MSEMS.10: 
0000006 MOV 


F 14 


11=Jul-198 


3 08:42:51 VAX-11 Bliss-16 V3-5 
88-Jul-1983 1 


7:46:34 DUA2: CDOUCETTE. tare 


EMS.01 ERROR MESSAGE SUBROUTINES 
PC ,MSEMS.01 


PC 
10176 


LAPSED TIME 
"MORE THAN XX. UNITS SPECIFIED" 


MSEMS.01 ERROR MESSAGE SUBROUTINES 
PC,EMS.ET 
#20,-(SP) 
#EBS.01,-(SP) 
#2,-(SP) 


#6,SP 
PC 


10206 


EMS.10 ERROR MESSAGE SUBROUTINES 
PC MS MS.10 


PC 
10240 


: LAPSED TIME 
'NO RESPONSE AT ADDRESS XXXXXX(0)"* 


MSEMS.10 ERROR MESSAGE SUBROUTINES 


PC EMS ET 
RC25. ADDR, =(SP) : 


SEQ “> 
page 92 
3czrco2. SRC; 5 (36 








czRCDd2 
v01.0 


CZRCDAO RC25 DISK EXERCISER 
ERROR MESSAGE SUBROUTINES 


6 0000006 
0000006 


3; Routine Size: 
: Maximum stack 


737 
000004 104423 
000006 000207 


3; Routine Size: 


+ Maximum stack 


000000 


013746 


z Routine Size: 
+ Maximum stack 


3462 


004737 


000004 104423 
000006 000207 


: Routine Size: 
+ Maximum stack 
3463 


000002 
000006 


15 words, 
depth per invocation: 


BGNMSG (EMS_12); 
000000Vv 


4 words, Routine a 
depth per invocation: 


EMS_ET (); 
PRINTB (EBD_12, .RC25_ADDR); 
ENDMSG; 


007174" 


0000006 
0000006 
000002 


000006 


13 words, 
depth per invocation: 


BGNMSG (EMS_13); 


000000Vv 


4 words, Routine pases 
death per invocation: 


Routine Base: 
words 


2 words 


Routine Base: 
5 words 


2 words 


SCODES + 


EMS.12::JSR 
TRAP 


RTS 
SCODES + 


SCODES + 


EMS.13::JS 
T 


SCODES + 


VOUA2: Bliss-16 V3-555 


SEQ ne 


A2: CDOUCETTE .CZRCDIJCZRCD2.SRC;5 (589° 


OF .RC, (SP) 
#EBD.10,-(SP) 
#2.=(SP) 


14 
#6,SP 
PC 


10250 


EMS.12 ERROR MESSAGE SUBROUTINES 
PC MS 12 


PC 
10306 


! ELAPSED TIME 
i “INCORRECT BR LEVEL GIVEN FOR DEVICE XXXXXX(0)"" 


MSEMS.12 ERROR MESSAGE SUBROUTINES 
PC,EMS.ET 

RC25. ADDR, -(SP) 

#EBD. 12,-(SP) 

#2,-(SP) 


oR 
#6,SP 
PC 


10316 


EMS.13 ERROR MESSAGE SUBROUTINES 
PC,MSEMS.13 


5 . 
PC 
10350 








H 14 
SEQ 0176 
CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss-16 V3-555 Pa 94 
ERROR MESSAGE SUBROUTINES ba jut=1988 9; 46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (369 


t FLAPSED TIME 7 
"STEP X_READ ERROR ON DEVICE XXXXXX(O) 
i pRINTX'SA CONTENTS 


EMS ET (); 
PRINTB (EBD_13, .STEP, .RC25_ADDR); 
EMS_SA (); 


ENDMSG; 


~SBTTL MSEMS.13 ERROR MESSAGE SUBROUTINES 
007174" acartenhi 


PC,EMS.ET 

0000006 MOV RC25. ADDR, =(SP) : 
0000006 STEP, = 

0000006 #EBD.13,-(SP) 

000003 #3,-(SP) 


1 
007232" PC,EMS.SA 
000010 #10,SP 


3; Routine Size: 17 words, Routine Base: S$CODE$ + 10360 
> Maximum stack depth per invocation: 6 words 


BGNMSG (EMS_14); 
.SBTTL EMS.14 ERROR MESSAGE SUBROUTINES 
000000v EMS.14::5R,  BC.MSEMS.14 : 


RTS PC 


3; Routine Size: 4 words, Routine pases SCODES + 10422 
: Maximum stack depth per invocation: 2 words 


EMS : ELAPSED TIME 
PRINTS (EBD 14, .IRC25_ADDR); “ERROR CODE RECEIVED IN SA REGISTER OF DEVICE XXXXXX(0)°" 
EMS_SA (); PRINTX SA REGISTER CONTENTS 


ENDMSG; 


MSEMS.14 ERROR MESSAGE SUBROUTINES 

007174° MSEMS.14: 

Js PC,EMS.ET 
0000006 IRCO5. ADDR, =(SP) 
0000006 #EBD.14,-(SP) 
000002 #2,-(SP5 
$P RO 
007232" PC,EMS.SA 
000006 AL #6,SP 


: Routine Size: 15 words, Routine Base: S$CODE$ + 10432 








I 14 


czRCd2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:4 
v01.0 ERROR MESSAGE SUBROUTINES 8-Jul-1983 1 


: Maximum stack depth per invocation: 5 words 


SEQ 0177 
751 VAX=-11 Bliss=-16 V3-555 95 


2 
7:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (369 


BGNMSG (EMS_15); 
grt Ens. 15 ERROR MESSAGE SUBROUTINES 
000000v EMS.15:: PC,MSEMS.15 ; 
‘TRAPS 
RTS PC 


: Routine Size: 4 words, Routine — SCODES + 
; Maximum stack depth per invocation: 2 words 


EMS_ET (); ! ELAPSED TIME 
PRINTB -. 15, .RC25_ADDR); i "FA ay TO RECEIVE END MESSAGE FROM DEVICE XXXXXx(0)"" 
EMS_CMD ();~ i PRINTX COMMAND 


ENDMSG; 


MSEMS.15 ERROR MESSAGE SUBRUUTINES 


.SBIT 
MSEMS.15: 

JS PC,EMS.ET 

013746 RC25.ADDR = (SP) 


#EBD.15,- 
#2,-(SP) 
$P.RO 
PC,EMS.CMD 
#6,SP 


e 


z: Routine Size: 15 word Routine Base: S$CODES + 10500 
+ Maximum stack depth ear “invocation: 5 words 


BGNMSG (EMS_16); 


-SBTTL EMS.16 ERROR MESSAGE SUBROUTINES 
000000V EMS.16::JSR PC .MSEMS.16 : 
TRAP 23 
RTS PC 


: Routine Size: 4 words, Routine Base: S$CODES + 1053¢ 
+ Maximum stack depth per invocation: 2 words 


! ELAPSED TIME 

D_16, -CPLAT); ! “ERROR IN RESPONSE TO ONLINE COMMAND FOR PLATTER XXX.°° 
! PRINTX STATUS CODE IF NOT ZERO 
! PRINTX SUB-CODE 








CZRCDAO RC25 DISK EXERCISER 
ERROR MESSAGE SUBROUTINES 


3490 


CZRCD2 
v01.0 


14 

: SEQ aid 
11-Jul-1983 08:42:51 VAX-11 Bliss=-16 V3=-555 page % 
B-Jul-19835 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 ‘36 


-SBTTL MSEMS.16 ERROR MESSAGE SUBROUTINES 


004737 


MSEMS.16: 
JS 
013746 


3; Routine Size: 17 words, Routine Base: 
3: Maximum stack depth per invocation: 5 words 


BGNMSG (EMS_17); 


000000V 
RTS 


; Routine Size: 4 words, Routine paees, 
+ Maximum stack depth per invocation: 2 words 


EMS_ET (); 
PRINTB (EBD_17, .CPLAT); 
ENDMSG; 


T 
MSEMS.17: 
JSR 


013746 


z: Routine Size: 13 words, Routine Base: 
+ Maximum stack depth per “invocation: 5 words 


3497 BGNMSG (EMS_18); 


SCODES + 


-SBTTL 
EMS.17::JSR 
TRAP 


SCODES + 


PC,EMS.ET 
CPLAT,=(SP) 


14 
PC,EMS.STC 
PC,.EMS.SBC 
#6,SP 


10546 


EMS.17 ERROR MESSAGE SUBROUTINES 
neers 3 


PC 
10610 


! ELAPSED TIME 
i “PLATTER XXX. IS SW WRITE-ENABLED BUT HW WRITE-PROTECTED"’ 


MSEMS.17 ERROR MESSAGE SUBROUTINES 


SCODES + 10620 





K 14 


SEQ a 
cZRCD2 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:42:51 VAX-11 Bliss=-16 V3=-555 page 
v01.0 ERROR MESSAGE SUBROUTINES B-Jul-1983 17:46:34 DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (36 


al EMS.18 ERROR MESSAGE SUBROUTINES 
000000 004737 000000V EMS.18:: PC, MSEMS.18 : 
000004 104423 TRAP 23° 
000006 000207 RTS PC 


; Routine Size: 4 words, Routine pases SCODES + 10652 
: Maximum stack depth per invocation: 2 words 


EMS ET (); ! ELAPSED TIME 
PRINTB (EBD_18, .CPLAT); i “ACCESS FAILED ON PLATTER XXX." 
EMS_STC (); i PRINTX STATUS CODE IF NOT ZERO 

EMS-SBC (); i PRINTX SUB-CODE 


ENDMSG; 


MSEMS.18 ERROR MESSAGE SUBROUTINES 


-SBTT 
MSEMS.18: 
JSR 


1 
PC,EMS.STC 
PC,EMS.SBC 
#6,SP 


: Routine Size: 17 words, Routine Base: $CODE$ + 10662 
: Maximum stack depth per invocation: 5 words 


3505 BGNMSG (EMS_19); 
: EMS.19 ERROR MESSAGE SUBROUTINES 
000000v EMS.19::5R,  BC.MSEMS.19 : 
PC 


: Routine Size: 4 words, Routine Base: $CODE$ + 10724 
+ Maximum stack depth per invocation: 2 words 


EMS_ET (); ! ELAPSED TIME 
PRINTB (EBD_19, .CPLAT); ' “PLATTER XXX. WENT OFFLINE" 
EMS_RP (); ! PRINTX RELEVANT RETPKT FIELDS 


ENDMSG; 


-SBTTL MSEMS.19 ERROR MESSAGE SUBROUTINES 
000000 004737 007174° MSEMS.19: 








CZRCD2 
v01.0 


3; Routine Size: 


: Maximum stack depth per invocation: 5 words 


000006 020207 


: Routine Size: 
; Maximum stack 


013746 
012746 
012746 
010600 
104414 
062706 
000207 


; Routine Size: 
+ Maximum stack 


; Routine Size: 


CZRCDAO RC25 DISK EXERCISER 
ERROR MESSAGE SUBROUTINES 


0000006 
0000006 
000002 


010144" 
000006 


15 words, 


BGNMSG (EMS_20); 


000000V 


4 words, 


Routine Base: 


SCODES + 


-S8TTL 
EMS.20::JSR 
TRAP 


Routine ——, 


depth per invocation: 2 word 


EMS_ET (); 
PRINTB (EBD_20, 
ENDMSG; 


007174° 


0000006 
0000006 
000002 


000006 


13 words, 


depth per invocation: 5 words 


BGNMSG (EMS_21); 


000000Vv 


4 words, 


«RC25_ADDR) ; 


RTS 
SCODES + 


MSEMS.20: 
JS 


Routine Base: 


EMS.21: 


Routine Base: 


SCODES + 


-SBTTL 
:JSR 
TRAP 
RTS 


SCODES + 


L 14 


SEQ wise 
11=-Jul=1 : VAX=11 Bliss-16 V3-555 page 98 
8-Jul-1 : DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (36 


3507 
3508 


10734 


EMS.20 ERROR MESSAGE SUBROUTINES 
PC .MSEMS.20 


PC 
10772 


! ELAPSED TIME 
! "DEVICE XXXXXX(0) NOT PROCESSING COMMAND PACKETS" 


MSEMS.20 ERROR MESSAGE SUBROUTINES 
PC,EMS.ET 
RCSS. ADDR, “gsr? 


#EBD.20,-(SP 
#2.=(SP) 


e 


#6,SP 
PC 


11002 


EMS.21 ERROR MESSAGE SUBROUTINES 
PC .MSEMS.21 


PC 
11034 





cZRCD2 
v01.0 


3; Maximum stack 


WWWIANA 


004737 
013746 


3; Routine Size: 
3; Maximum stack 


3526 


004737 
000004 104423 
000006 000207 


: Routine Size: 
> Maximum stack 


000004 013746 
000010 012746 


CZRCDAO RC25 DISK EXERCISER 
ERROR MESSAGE SUBROUTINES 


depth per invocation: 2 words 


EMS_ET (); 

PRINTS (£80.21, -RC25_ADDR); 
PRINTX (EX_DSC, .ST_CODE); 
ENDMSG; 


007174" MSEMS.21: 
0000006 

0000006 

000002 


007404" 


000012 


23 words, Routine Base: S$CODE$ + 
depth per invocation: 7 words 


BGNMSG (EMS_22); 
-SBTTL 
000000v EMS.22::JSR 
: TRAP 


RTS 


4 words, | Routine Base: $CODE$ + 
depth per invocation: ? words 


EMS_ET (); 
PRINTB (EBD_22, .RC25_ADDR); 
ENDMSG; 


007174" 
0000006 
0000006 


11 ' ol 08:42:51 VAX-11 Bliss-16 V3-5 sy ie 99 
= = o ss- 
B-Jul-1983 9:4 46:34 DUA2: CDOUCETTE. CRD ICZRCD2. SRC;5 (36) 


LAPSED TIME 
MESSA SSAGE REJECTED BY DUP SERVER ON DEVICE XXXXXx(0)"* 
:* "Sup STATUS CODE: Xx." 


MSEMS.21 ERROR MESSAGE SUBROUTINES 


S.ET 
Ros. ADDR, =(SP) 
#EBD.21,-(SP) 
#2,-(SP5 

SP,RO 

14 


oy oEMS.CMD 


11044 


EMS.22 ERROR MESSAGE SUBROUTINES 
PC ,MSEMS.22 


PC 
11122 


LAPSED TIME 
Fh RESPONSE FROM FRONT PANEL TEST EXECUTING IN DEVICE XXXXXxx(O)°° 


MSEMS.22 ERROR MESSAGE SUBROUTINES 


ET ; 
Reds SODR. (SP) : 
#EBD.22,-(SP) 





cZRCD2 
v01.0 


; Routine Size: 13 words, 


N 14 


SEQ Oise 


CZRCDAO_RC25 DISK EXERCISER 11=Jul=1983 08:42:51  VAX-11_Bliss-16 v3-55 
ERROR MESSAGE SUBROUTINES B-Jul-1983 17:46:34  _DUA2:CDOUCETTE.CZRCD 
012746 000002 MOV —s--#2,= (SP) 
010600 MoV. _— SP. RO og SP,* 
104414 TRAP 14 
062706 000006 ADD «#6, SP F 
000207 RTS —- PC 


: Maximum stack depth per invocation: 5 words 


000004 
000006 


: Routine Size: 4 words, 


3532 BGNMSG (EMS_30); 


-SBTTL 
004737 000000V EMS.30::JSR 
104423 TRAP 
000207 RTS 


3; Maximum stack depth per invocation: 2 words 


011174 
011176 
011200 
011202 
011204 
011206 
011210 
011212 
011214 
011216 
011220 
000000 
000004 


Routine Base: SCODE$ + 


11132 


EMS.30 ERROR MESSAGE SUBROUTINES 
PC MS -30 


PC 


Routine Base: SCODE$ + 11164 


3533 

3534 OWN 

3535 EBH_TB : VECTOR [11] INITIAL (EBH 31, EBH 32, a: EBH_34, EBH_35, EBH_ 36, 
3536 EPH £BH 38, £BH 39, EBH.40, EBH 

3250 ! TABLE OF BASIC, HARD ERROR MESSAGE ADDRESSES. INDEXED BY STATUS CODE 
3539 ELAPSED TIME 


EMS_ET (); 
3540 PRINTS (PLATT, .CPLAT); 


3541 IF ((.ST_CODE GEQU 1) AND (.ST_CODE LEQU 11)) 


THEN 
3543 PRINTB (.EBH_TB C.ST_CODE - 1]) 


LSE 
3545 PRINTB (EX_SC, .ST_CODE); 
3546 EMS_RP (); 


3548 ENDMSG; 


0000006 EBH.TB: .WORD 
0000006 «WORD 
000000 - WORD 
0000006 » WORD 
0000006 «WORD 

00G «WOR 
0000006 - WORD 
G «WORD 
0000006 - WORD 
00G - WORD 
0G «WORD 
-SBTTL 

004737 007174° ate 

013746 000000G MOV 


"BLATTER XXX. = "' 
If STATUS CODE IS WITHIN RANGE 


THEN 
PRINTB APPROPRIATE MESSAGE 
ELSE STATUS CODE ~~ OF RANGE 


TATUS CODE 
PRINTX OTHER RETPKT FIELDS 


-40 
EBH.41 


MSEMS.30 ERROR MESSAGE SUBROUTINES 


PC,EMS.ET : 
CPLAT,~(SP) : 


5 page 100 
ICZRCD2.SRC5 (36 


3526 


3532 


3539 
3540 





czRcd2 


: Routine Size: 
* Maximum stack 


000000 
000004 
000006 


3; Routine Size: 
‘ Maximum stack 


000010 
000020 


3549 


004737 
104423 
000207 


WNWWWAAW 
MMMM 
MMMM 
NOMUPSWN Oo 


004737 
013746 


CZRCDAO_RC25 DISK EXERCISER 
ERROR MESSAGE SUBROUTINES 


0000006 
000002 
0000006 
000013 


011172° 
000001 


1$: 
0000006 
000002 


010144" 2$: 
000010 


37 words, 
depth per invocation: 


BGNMSG (EMS_42); 


.SBTT! 
000000v EMS.42::JSR 

TRAP 

RTS 

4 words, Rout ine pases SCODES + 
depth per invocation: 2 words 

EMS_ET (); 

PRINTB (PLATT, .CPLAT); 

PRINTB (EBH_42); 

EMS_LBN (); 

EMS_BC (); 

ENDMSG; 

-SBTTL 
007174° pacing ™ 
0000006 MOV 
0000006 MOV 
000002 MOV 

MOV 


Routine Base: 
7 words 


SCODES + 


8 15 


11-Jul-19 

88-Jul-19 

#PLATT,=(SP) 
#2.=(SP) 


e 


ST.CODE,RO 
RO,#13 
1$ 


coco 
WGN 
-—Oo 
No 
rs 
on 


RO 
eds tamales 


(SP)+ 
PC,EMS.RP 


#10,SP 
PC 


11222 


EMS.42 ERROR MESSAGE SUBROUTINES 
PC .MSEMS .42 


PC 
11334 


ELAPSED ya 


PRINTX LBN 
PRINTX BYTE COUNTS 


SEQ 0183 
VAX-11 Bliss-16 V3-5 


555 
_DUA2: CDOUCETTE.CZRCDICZRCD2.SRC;5 (369 


: SP,* 


3 SP,* 


s S?.* 


LATTER 
“HOST-DETECTED WRITE=COMPARE ERROR'* 


MSEMS.42 ERROR MESSAGE SUBROUTINES 


PC,EMS.ET 


3 SP,* 


3549 





czRCDd2 


3; Routine Size: 23 words, 
+ Maximum stack depth. per * invocation: 


000000 
000004 
000006 


: Routine Size: 
3 + Maximum stack 


3558 


004737 
104423 
000207 


—— 2 
v : 
= 


-9O00—00S0o 
aa > 
& 
Pm 


R 


CZRCDAO_RC25 DISK EXERCISER 
ERROR MESSAGE SUBROUTINES 


TRAP 
0000006 MOV 
000001 MOV 
MOV 
TRAP 
007746' JSR 
010030" JSR 
000010 ADD 
RTS 
Routine Base: SCODE$ + 
6 words 
BGNMSG (EMS_43); 
-SBTTL 
000000V EMS.43::JSR 
TRAP 
RTS 
words, Routine paaee SCODES + 
depth per invocation: 2 words 
EMS 0; 
ERINTS (PLATT eCPLAT); 
PRINTS (EBH H_43); 
EMS_C 
RPeADDR EchDMOD) = -RP_ADDR CSTATUS); 
ERInyK ( Cex _LBN, .RP_ADDR CBBLK_ L0J); 
PRINTX (EX. cBC, oRP_ ADDR CBCNT_ “LOJ); 
EMS_BD (); 
ENDMSG; 
-SBTTL 
MSEMS.43: 
MOV 
067174° JSR 
0000006 MOV 
0000006 MOV 
000002 MOV 
MOV 
TRAP 
0000006 MOV 
000001 MOV 
MOV 
TRAP 
007260° JSR 
0000006 MOV 
MOV 
000016 000012 MOV 


¢ 15 
11-Jul-1983 08:42: 
B-Jul-1983 17:4 
14 
#EBH.42 
#1,-(SP5 
SP-RO 


(SP) 


PC,EMS.LBN 
PC,EMS.BC 


#10,SP 
PC 


11344 


EMS.43 ERROR MESSAGE SUBROUTINES 
PC .MSEMS .43 


PC 
11422 


ELAPSED TIME 


PRIN 
PRINTX 


SEQ 0184 
VAX-11 Bliss=-16 V3-555 page 102 
_DUA2: CDOUCETTE .CZRCDICZRCD2.SRC;5 (76 
3 3553 
3 SP,* 
3 3554 
3 3555 
. 3549 


; 3558 


TER_XXX. 
peantce TO RECEIVE END ie FOR 1/0 COMMAND"® 
PRIN OMMAND REFERENCE 


INTX C 
STATUS FIELD HOLDS gay at ANY) 
PRINTX COMMAND (AND MODIFIER) 


X BYTE COUNT 
PRINTX 1/0 BUFFER DESCRIPTOR 


MSEMS.43 ERROR MESSAGE SUBROUTINES 


#EBH.43, (SP) 
#1,-(SP5 


PC,EMS.CRN 
RP.ADDR,R1 


R1,RO 
16(RO) ,12¢R1) 


3 3558 
F 35 

3 3561 
3 SP,* 

: 3562 
; SP,* 

3 3563 


: RP.ADDR,* 








D 15 

SEQ ie 
CZRCDAO RC25 DISK EXERCISER Vesut=is : VAX-11 Bliss=-16 V3=-555 page 103 
ERROR MESSAGE SUBROUTINES 8-Jul-19 :46: DUA2: CDOUCETTE.CZRCDICZRCD2. SRC; 5 (36 
007404° PC,.EMS.CMD ; 3565 
0000006 ; 3566 
000040 
0000006 
000002 


=-Co0coco 
tee 


0000006 MOV R,RO 
000020 BO CRO) (SP) 
0000006 #EX. CBC 
000002 #2,~(SPS 
MOV 0 


-(SP) 


=-OCo0o0o 
2 


1 
010106" PC, EMS.BD 
000020 #20,SP 
(SP)+.R1 


; Routine Size: 53 wo Routine Base: S$CODE$S + 11432 
; Maximum stack depth. fe “invocation: 11 words 


END 
ELUDOM 


OTS external reference 
-GLOBL $SAVES, SSAVE4, SSAVE3, SSAVE2 
-GLOBL BLSMUL 


PSECT SUMMARY 
Psect Name Words Attributes 
SCODES 


2498 RO, I , LCL, REL, CON 
SPLITS 487 RO, D , LCL, REL, CON 


LIBRARY STATISTICS 


a------- Sym 


bols 
File Total leeded Percent 
_DUA2: CDOUCETTE .CZRCDICZRCDL.L16;9 276 204 73 


COMMAND QUALIFIERS 
BLISS /PDP11 CZRCD2.SRC/LIST/EN:NOEIS 


; fis: 2558 cgge + 627 data words 
; Elopsed. Tine: 01:58.0 


Ronery Used: 396 pages 
; Compilation Complete 











E 15 


SEQ wise 
RCD3 11=Jul-198 98:4 VAX-11 Bliss-16 V3-555 
7 B-Jul-198 17 ~DUA2: CDOUCETTE .CZRCDICZRCD3. SRC; 3 5% 


MODULE CZRCD3 ( 
Fat a *CZRCDAO RC25 DISK EXERCISER’ 


DEN *V 
er werettae MODE ° (ABSOLUTE) 
BEGIN 
ZSBTTL ‘DECLARATIONS’ 


LIBRARY ‘CZRCDL*; ! RC25 EXERCISER GLOBAL LIBRARY 
REQUIRE *BLSMAC.REQ'; ! DIAGNOSTIC SUPERVISOR LIBRARY 


EQUALS; 


DIET 


: waa | ~ # aritee IN THIS ORDER 
FORWARD ROUTINE : INDENTATION pst tt CALLED SUBROUTINE 
INI ! INITIALIZATION SUBTEST 


OVALUE., 
_CTLR_DAT : NOVALUE, 
REG_EXIST, 
VEC~6R_TEST, 
INT-GEN, 


ke ek ek ek ek ed ad ad ed ad dd 
PAPA ATIUIMMMAIAUIII 
LV IVP oe at at at et et et ak et 
—"OVONOUSWN—OoO 


UNIT. I : 
ACCESS : NOVALUE, 








F 15 


DA oe NOVALUE , ! DM EXERCISER SUBTEST 
MINIT : NOVALUE , 


DM” Qu 

DM, RETPKT : NOVALUE, 

on mares _MSG : NOVALUE, 

DM_ TALLY : NOVALUE . 
MBC : 


SEQ 0187 


OM ° 
MULTI DRIVE ! MULTI-DRIVE SUBTEST 
MB_INIT : NOVALUE, 
IN NIT. 10 OL BUFF: NOVALUE, 


ARAGON 
WHO OONOUSwI 


UNIS SHVET 


FILC_BUF 
PRO ETT TPKT 


wl ealeaheaheah sb ah ah ah 4h ah ah 4b ah 4b 4b Ah Ab Rh 


SIN 
ones 


eee ee ee ee ee ee ee ee a dd ed ad dd 
wi 
N 
N 


! RC25 INTERRUPT SERVICE ROUTINES 


. 
eo 
. 
° 
. 
. 
° 
o 
. 
° 
° 
o 
° 
oe 
e 
o 
e 
. 
e 
. 
° 
. 
° 
o 
e 
- 
° 
. 
e 
e 
e 
a 
e 
° 
e 
a 
eo 
& 
e 
* 
° 
o 
e 
o 
oe 
. 
° 
o 
e 
. 
a 
eo 
e 
. 
e 
° 
e 
. 
° 
© 
° 
o 
e 
o 
e 
- 
° 
. 
e 
. 
e 


RCINTS : L$ISR NOVALUE, 





G 15 
SEQ 0188 
CZRCD3 CZRCDAO ote DISK EXERCISER 11-Jul-19 : VAX-11 Bliss=-16 V3=-555 Page 3 
v01.0 DECLARATION 8-Jul=19 : DUA2: CDOUCETTE.CZRCDICZRCD3.SRC;3 (23° 


RCINT.  NOVALUE. ” 


PSECT OWN = $GGG$ (READ, NOWRITE, EXECUTE, LOCAL, CONCATENATE); 


COMM_AREA : BLOCKVECTOR CMAX_CTLR, COMM_LEN, WORD] FIELD (COM FIELDS), 
O/a Q PORT CORBIUNI CAT JON AREA BETWEEN HOST AND RC25 CONTROLLERS 
: BLOCKVECTOR CMAX_UNITS, , WORD (f Jeep (B FieLDS). 
BLOCK SERVENCE TABLE FOR "SEOUENTIA AL LON < vs. BOM EEK E 
3 MAK MA ATTERN SEQUENCE TABLE 


WORD) FIELD’ (COR, FIELDS), 
Stes S$ U/Q PORT COMMUNICATION AREA 


Seep en oSSassaRaessoe 


ee ee ce eee ee cee ee ed ce ed ee ce ee ce ce ed eed ed eed eed eed eed 


3 


LE 
F BLOCK CD WORD] FIELD we FIELDS), 
DDRESS OF INTERRUPTING EO TROLLER'S 
INT_ADDR : VECTOR CMAX_CTLR] INITIAL (RCINTO, RCINT1, RCINT2, RCINT3), 


i NTERRUPT SERVICE *ROUT INE ADDRESS T 
! INTERRUPTING CONTROLLER NUMBER 


i MSCP ENV INDEX FOR FIRST QI0 
i Beye ENV INDEX FOR SECOND Q10 


AAAAAAACAO 
ee ek ed aed aed aed aed ed 


R I 
MAD2 : REF BLOCK CENV_LEN, WORD] FIELD (E FIELDS), 


ADDRESS OF MSCP NERVELOPE FOR SECOND O70 
: WORD, : apa | DEVICE'S VECTOR ADDRESS 
BRLEVEL WORD, :¢ DEVICE’S BR LEVEL 


: NO. OF LBN'S) 
: VECTOR CMAX_CTLRI, ' TIMERS FOR ONE PASS OF FRONT PANEL TEST (DM EXER) 
: BYT ! CALL / DON'T CALL ptf () (MULTI-DRIVE SUBTEST) 
: WORD INITIAL (RDM_LEN), ! NUMBER OF RANDOM NUMBERS \ KEEP 
t VECTOR CRDM_LEN, WORDJ, ! RANDOM NUMBER Me (PATTERN 1) / TOGETHER 
OR 62) INITIAL (1, PATTERN 2 


VECTOR a INITIAL (1, ! PATTERN 3 

0°177777"), 
: VECTOR £2} INITIAL (1, ! PATTERN 4 
VECTOR C2} INITIAL (1, ! PATTERN 5 
: VECTOR (2) INITIAL (1, ! PATTERN 6 
: VECTOR C17] INITTAL (16, ! PATTERN 7 

%0°000001", 20": 903", %0°000007", %0'000017", 

%0°000037". %0°000077". %0°000177". %0° 900377". 

%0'000777", %0'001777", %0°003777", 20°007 


%0°017777",, %0°037777", %0°077777", ease 
: VECTOR [179 INITIAL (16, ! PATTERN 8 


ed ed ed ed ed ed od ad = = 


tit 


BAAABGBVUwrww 
MEWN OC OCONOAUSWN—OVONAUSWN—O0ON 


Ww 


AARAAAAAAAAAAOO 
RAR 


NWWGN 


. 
e 
. 
e 
. 
° 
& 
° 
8 
° 
e 
° 
o 
° 
. 
° 
. 
: 
. 
° 
o 
e 
. 
e 
a 
° 
° 
° 
2 
° 
. 
° 
o 
° 
° 
e 
. 
° 
e 
e 
2 
e 
* 
a 
o 
° 
cs 
° 
. 
° 
. 
° 
o 
e 
. 
° 
° 
e 
o 
a 
. 
° 
. 
e 
e 
° 
. 
& 
. 
e 
a 
° 
& 
e 
a 
° 
© 
° 
7 
e 
. 
e 
. 
° 
2 
° 
- 
e 
. 
o 
. 
° 
« 
° 
. 
7 
~ 
e 
. 
eo 
- 
° 
. 
o 
. 
e 
o 
So 
* 
oe 
. 
e 
° 
° 


ee ee ee me ee me ee ce ee ed ed ed ed eed ed ed ed od ed = 


SRERF 
fwh—-oc Con 








H 15 


SEQ a 
CZRCD3 CZRCDAO ree DISK EXERCISER 11-Jul-1983 08:44: VAX-11 Bliss=-16 V3-555 
v01.0 DECLARATION 8-Jul-19835 17:43: DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (2) 


%0°177776', 40°177774" 20" 177770", %0°177760", 

%0°177740"., 177600", 20°177400°, 

%0"177000", * %0°170000° 

20°16 20° 40000" %0'100000". %0°000000'5, 

: VECTOR C74 INITIAL ' PATTERN 9 
20° ob00'. *%0°000000", %0°177777', 

%0'177777'. 10°177777". %0°000000'. %0°000000", 


%0°177777".. %0°17 
%0'000000", %0 a aacay %0'000000', %0°177777", 
%0"000000'.. %0°177777'), 
t VECTOR ce}. INITIAL (1, ' PATTERN 10 
171° INITIAL (16, ! PATTERN 11 
» %0'052525', 0052525", 40" 125252", 
3** 40°052525", %0°052525", 


had 052525°, %0°125252", 


OOONOW 


a kd ed ed od od sd = I 
MMMMUIVIVIVIUT 


oa 
SOOONOUEWN— 


0°1252 
0°1252 
1636 

1252 
T 


ay: 


' PATTERN 12 
, %0°151322", 
* %0°026455", 
%0°026455", 
* %0°026455° 
- 30° 026455", * %0°026655'5, 
: Had C2}. INITIAL ¢ ' PATTERN 13 


0° 

: VECTOR ci73" INITIAL (16, ' PATTERN 14 
20° 0° 900003". 20'000004*, 20'000010", 
* %0°000200°, 
* 20 002000". %0°004000° 

20" 00000" to" 040000"; %0°100000'5, 


» 20°177767', 
* x0" We5er". 
» 20°17377 

; %0° elec are 


- %0°155554", 
~ 20°133331", 


- %0°155554", 


SSSSEEE 


~~ 
o 
N 
-_ 


! PATTERN 15 


ee a eh ed 
Saeaeeee. 
WONAUSWN 


! PATTERN 16 


$3 & Go 60 
Wwr=—S 


! PATTERN 17 
66°, 20° 145 
%0° 106466", 
20° 071311", 
%0° 6°, 


0646 
%0° 106466", 


SSSSSESE 


Srano 
LPLx 
[\w— 


! PATTERN 18 
%0°071311", 


. 
e 
* 
° 
o 
° 
= 
e 
° 
° 
. 
e 
o 
° 
. 
° 
° 
° 
= 
° 
. 
° 
. 
° 
. 
e 
ae 
° 
. 
o 
~ 
° 
o 
° 
° 
e 
° 
e 
. 
° 
7 
e 
. 
° 
o 
° 
. 
go 
© 
a 
° 
° 
. 
° 
. 
° 
- 
° 
e 
° 
. 
° 
. 
e 
° 
e 
o 
e 
2 
e 
= 
we 
. 
° 
. 
oe 
. 
° 
° 
e 
° 
° 
- 
° 
o 
e 
. 
° 
7 
aa 
° 
o 
. 
° 
a 
° 
s 
s 
7 
e 
e 
° 
. 
sd 
. 
° 
. 
° 
. 
° 
. 
° 
. 
e 


! PATTERN 19 








I 15 


SEG 0190 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 09 :64'2 VAX-11 Bliss=-16 V3-555 age 
v01.0 DECLARATIONS B-Jul-1983 17:43:5 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (2) 


40043146", 

10° 134631", 

146°, %0°043146", 

> 20'0 10° 134631", 

' > 80°734631", 0"134631", 


20° 1346 . 
VECTOR C22) INITIAL (21, ! PATTERN 20 
20° *, 20° *, £0°043146', 
%0°134631°, 20°1 134631°, 
043146°, 04 043146° 
20° 134631", 3 - %0°134631', 1 ° 
s Ue SF %0°043146°, %0°043146", 


20°04 ° 2 
PAT21 : VECTOR neg, SNA T ORE. qi, : vada 


eo ow L 
DPA_TBL : VECTOR COP_CNT] INITIAL ! DATA PATTERN ADDRESS TABLE 
(RDM_CNT, PATO2, PATO3, PATO4, PATOS, 
PATO’, PATO7, PATO8, PATO9, PAT10, PAT11, 
PAT12, PAT13, PAT14, PAT15, PAT16, PAT17, 
PAT18, PAT19, PAT20. PAT215, 


THE FOLLOWING CODE IS THE CROM PRIMER WHICH WAS DEVELOPED 
INDEPENDENTLY. ITS BINARY .SAV FILE WAS RUN THROUGH THE PROGRAM 
"DMCONV’', PRODUCING THIS COMPILABLE VECTOR. 


ssszs32 
sssssses 


ly -eaaeamaas 
a bs ! THIS IS THE DM PROGRAM BYTE COUNT. 
%0°0004 ! THIS IS THE DM OVERLAY BYTE COUNT. 


0 . 
%0°051103", ! NEXT 3 WORDS = PROGRAM NAME (ASCII) 
%0°046517"°, ! PROGRAM NAME IS ‘CROMP ° 


%0°020720°, 
20°0 1*, ! THIS IS THE PROGRAM VERSION 
! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 
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SEQ 0191 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss=-16 V3-555 Page 
v01.0 DECLARATIONS B-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (2) 
3 1759 (29) = %0°007774', 
: 1760 (30) = %0°104140°, 
; 761 (31) = %0'002752", 
; 1762 (32) = %0°104204', 
; 1763 (33) = %0°002751', 
; 1764 (34) = %0°104203', 
; 1765 (35) = %0°007000", 
3 1766 (36) = %0°104647°, 
3 1767 (37) = *000001°, 
: 1768 (38) = %0°104641°, 
3 1769 (39) = *000002'. 
3 1770 [40] = %0°104142', 
3 1771 ~=(41) = : 20°, 
: 1772 42) = %0°102207', 
3 1773 043] = %0°000037", 
3 774 [44] = %0°052754', 
3 1775 445] = %0°104077°, 
; 1776 (46) = %0°007006', 
; 1777 ~=(47] = %0°032305°, 
3 1778 (48) = ‘ *, | DM OVERLAY CODE STARTS HERE 
5 1779 (49) = %0°000000", 
; 1780 (50) = %0°000000°, 
3 1781 (51) = *000000°, 
3 1782 [52] = %0°000000°, 
3 1783 (53) = *000000°, 
3 1784 [543 = %0°104207", 
; 1785 55] = *007000°, 
: 1786 [56] = 2%0°104201', 
g 1787 (57) = P 02°, 
3 1788 [58] = %0°104202', 
; 1789 [59] = %0°002740", 
; 1790 60] = %0°107027", 
: 1791 (61) = %0°107017°, 
: 1792 62] = %0°105012", 
3 1793 £63] = %0°060011", 
3 1794 [64] = %0°027107', 
3 1795 [65] = %0°027203', 
: 1796 £66] = %0°027146°, 
3 1797 [67] = %0°114000°, 
3 1798 [68] = *007005°, 
3 1799 [69] = %0°114000', 
3 1800 (70) = %0'007776', 
; 1801 [71] = %0°114000°, 
: 1802 [72] = %0°007776', 
3 1803 [73] = %0°104077°, 
; 1804 [74] = %0°104206', 
3 1805 [75] = %0'007760', 
5 1806 [76] = *104301°, 
3 1807 C77] = %0°007005', 
; 1808 [78] = %0°104610', 
3 1809 [79] = %0°007234', 
5 1810 [80] = %0'007767', 
3 1811 (81) = %0°115000°, 
: 1812 [82] = %0'007767', 
3 1813 [83] = %0'077076', 
3 1814 [84] = %0'027120', 
3 1815 [85] = %0°104200°, 
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SEQ 0192 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 08:63:2 VAX-11 Bliss=-16 V3=-555 Page 
v01.0 DECLARATIONS 8-Jul-1983 17:43:5 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (2) 


g 


%0°007051°, 
%0°002750', 
20°002740°, 
%0°027146', 
%0°115000°, 
%0°007265", 
%0°057051°, 
0°104200° 
20°177777', 
20°00 *. 
%0°027130', 
%0°027146', 
115000°, 
%C°007265°, 
%0°017071", 
%0°114000°, 
%0°007004° 
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ee a eek ed ae ae ed ed ed ad ad od 
WN —O0Onauw 
ae SST) 
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Seeees 
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%0°027216°, 
%0°115400°, 
%0°007005', 
%0°106200", 
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2°, 
%0°060023", 
%0°102207°, 
*000037°, 
%0°057107", 
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SEQ 0193 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 08 VAX-11 Bliss-16 V3=-555 Page 
v01.0 DECLARATIONS 8-Jul-1983 17 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (2) 


%0°104203', 
%0°007004', 
%0°060021", 
%0°102207", 
%0°000037", 
%0°057130", 
%0°000000° 
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114001", 
%0°104202", 


%0°104203', 
%0°007234°, 
%0°060020°, 
%0°102207°, 
%0°000037°, 
%0°057146°, 
%0°000000°, 
%0°104200°, 
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%10'114000". 
20°002744", 
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%0°007240', 
%0°060021', 
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SEO 0194 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52  VAK=11 Bliss-16 V3-555 Page 9 
v01.0 DECLARATIONS B-Jul-1983 17:43:57 _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (2) 

1930 [200] = %0°102207", 

1931 [201] = %0°000037". 

193@ [202] = %0°057216'. 

1933 [203] = %0°000000'. 

1934 [204] = %0°143367" 

1935 [205] = 5; 

1936 

1937 EXTERNAL 

1938 PATCH : VECTOR (100, WORDJ, ' PATCH AREA 
939 CPT : VEC 


TOR CMAX_UNITS, BYTE), 
: CURRENT PASS TESTING (YES / NO) PER 


o 


3 1 

3 194 UNIT 

3 1941 CST : BLOCKVECTOR CMAX_CTLR, CST_LEN, WORD] FIELD (C_FIELDS), 

3 1942 ! RUN-TIME CONTROLLER STATUS TABLES 

; 1943 CST_ADDR : REF BLOCK CCST_LEN, WORD] FIELD (C FIELDS), 

; 1944 ! TROLLER STATUS TABLE ADDRESS OF ‘‘CURRERT'’ C L 

: 1945 DCT : BLOCKVECTOR CMAX_CTLR, DCT_LEN, WORD] FIELD (DC_FIELDS), 

: 1946 ! DRIVER CONTROLLER T. 

3 1947 DCT_ADDR : REF BLOCK CDCT LEN, WORD] FIELD (D¢ FIELDS), 

3 1948 ! AD S OF “‘CURRENT’’ DRIVER CONTROLLER TABL 

3 1949 RC25_ADDR_ : REF RC25 FIELD (RC_REG), 

; 1950 ! BEVICE ADDRESS OF “CURRENT” CONTROLLER 

3 1951 IRC25_ADDR : REF 5 FIELD ¢ 

; 1952 ! DEVICE ADDRESS OF INTERRUPTING CONTROLLER 

3 1953 DM_COMM : BLOCKVECTOR CMAX_CTLR, DMC_LEN, WORD] FIELD (DMC FIELDS), 
; 1954 ! DM EXERCISER COMMUNICATION AREA TLINK TO FRONT PANEL TEST) 

: 1955 DMC_ADDR : REF BLOCK CDOMC_LEN, WORD] FIELD (DMC_FIELDS), 

3 1956 ! ADDRESS OF CURRENT CONTROLLER'S DM EXERCISER COMMUNICATION AREA 
3 1957 RP_SAVE : VECTOR CMAX_CTLR * RPS_LEN, BYTE, SIGNED], 

3 1958 ! RETURN PACKET SAVE AREA 

; 1959 RPS_X1 : WORD, ' STARTING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA 
3 1960 RPS_X2 : WORD, i ENDING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA 
; 1961 OUTC_LIST : VECTOR CMAX_CTLR * OUTC_CNT, BYTE, SIGNEDJ, 

; 1962 ! GUTSTANDING COMMAND LIST (CONTAINS MSCP ENVELOPE INDECES) 

; 1963 OUTC_TIMR : VECTOR CMAX_CTLR * OUTC_CNT, WORDJ, 

; 1964 ! GUTSTANDING COMMAND TIMERS 

5 1965 OCL_X1 : WORD, 

; 1366 ! am STARTING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA 
: 1968 ! ENDING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA 

: 1969 TALLY : VECTOR CMAX_UNITS * TALLY_LEN, WORD] FIELD (T_FIELDS), 

: 1970 ! STATISTICS TABLES 

3 1971 T_ADDR : REF BLOCK CTALLY_LEN, WORD] FIELD (T FIELDS), 

: 1972 ! ADDRESS OF STATISTICS TABLE (TALLY) FOR CORRENT UNIT 

3 1973 MSCP_ENV : BLOCKVECTOR CENV_CNT, ENV_LEN, WORD] FIELD (E_FIELDS), 

: 1974 ! ASCP ENVELOPE POOL 

: 1975 ENV_USE : VECTOR CENV_CNT, BYTE, SIGNED), 

: 1976 ! MSCP ENVELOPE POOL ALLOCATION TABLE 

: 1977 RETPKT : BLOCKVECTOR CRP_CNT, RP_LEN, WORD] FIELD (RP_FIELDS), 

: 1978 ! RETURN PACKET P00 

: 1979 RP_USE : VECTOR CRP_CNT, BYTE, SIGNED), 

: 1980 ! RETURN PACKET POOL ALLOCATION TABLE 

; 1981 RP_INDX : . ' CURRENT RETURN PACKET INDEX 
: 1982 RP_ADDR : REF BLOCK CRP_LEN, WORD] FIELD (RP_FIELDS), 

: 1983! CURRENT RETURN PACKET ADDRESS 

: 1984 BUFF DESC : BLOCKVECTOR CMAX_BUF_CNT, DESC_LEN, WORD] FIELD (BD_FIELDS), 
: 1985 ! TABLE OF 1/0 BUFFER DESCRIPTORS 


1986 BUFF_OWN : VECTOR CMAX_BUF_CNT, BYTE, S!GNED], 





N 15 


a at - HOURS, 
CONDS, 


TICKS 

CURRENT STATUS CODE 

CURRENT SUB-CO 

CURRENT STEP IN HARD_INIT 

OFFSET (0 OR 2) TO READ IP OR SA 

SA~ REG : WORD, STORAGE FOR SA REGISTER READS AND WRITES 
NEX : WOR NON-EXISTENT MEMORY TRAP INDICATOR 

CRN : WORD, COMMAND REF NUMBER OF LAST COMMAND SENT 


SEQ 0195 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52  VAX=11 Bliss-16 3-555 Page 
v01.0 DECLARATI B-Jul-1983 17:43:57 — _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (2) 
1987 ! 1/0 BUFFER OWNERSHIP (CONTROLLER NUMBER) 
1988 10D: VECTOR CIODQ_LEN, BYT 
1989! 1/0 DONE QUEUE = LETRCULAR QUEUE OF RETPKT INDECES 
1990 1ODQ_IN_: WORD, ! 1/0 DONE QUEUE IN POINTER 
1991 10DQ 1 1/0 DONE QUEUE OUT POINTER 
1992 ENTRY R REASON. + eyTE, i HOW CURRENT PASS WAS INVOKED 
1993 T FLAG : BYTE, { QNE SECOND TIMING FLAG 
199% EOP_FLAG : BYTE, i END=OF=PASS FLAG 
1995 EM_MGMT : BYTE, i MEMORY MANAGEMENT FLAG 
1996 IIP-FLAG : BYTE, INITIAL IZA}TON-IN-PROGRESS FLAG 
1997 CCTCR : WORD, i NUMBER OF “‘CURRENT’’ CONTROLLE 
1998 CPLAT , t CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER) 
1999 CUOFF - WORD, i CST OFFSET FOR CURREN 
2000 CTLR_CNT : WORD, i FOTAL NUMBER. OF CONFIGURED CONTROLLERS 
2001 DUR = VECTOR CMAX_UNITS, BYTEJ, i DROP UNIT REASON 
Q10 : VECTOR CMAX-CTLR, BYTE), i NUMBER OF OUTSTANDING QIOS PER CONTROLLER 
MEM SIZE : WORD, { AVAILABLE MEMORY CIN WORDS) UP TO 28K 
FREE_MEM ADDR, i START OF FREE. MEMORY BELOW 28K 
SIZE : WORD, i SIZE BYTES) oF AN 1/0 BUFFER 
BUFF : WORD, i NUMBER OF 1/0 BUFFERS 
CLKITYPE : WORD, i TYPE OF CLOCK ON SYSTEM 
i (0 = NONE, -1 = L=CLOCK, 1 = P_CLOCK) 
CLK_HERTZ : WORD, i CLOCK HERTZ RATE 
CLK-CSR. i CLOCK CSR_ADDRES 
CLEC VECTOR. 
: 
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SEQ 0196 
CZRCD3 CZRCDAO meee DISK EXERCISER 11-Jul-1983 08:4 44:52 VAX-11 Bliss=16 V3=555 Page 11 
v01.0 DECLARATION B-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (2) 


3 2045 STC_02, 

; 2046 S$TC_03, 

; 2047 STC_04, 

3 2048 STC_05, 

$ 2049 STC_06, 

: 2050 STC_O7, 

; 2051 STC_08, 

; 2055 EX_CRN, 

; 2056 EX_SB, 

; 2057 EX_EL, 

; 2058 EX_PA, 

; 2059 EX_FMT, 

: 2060 EX_EvC, 

; 2061 EX_HMA, 

3 2062 EX_03, 

: 2063 SwP_ STRACK : WORD, ! STARTING TRACK 
; 2064 SWP_ETRACK : WORD, ! ENDING TRACK 
: 2065 SWP_FLAGS : BYTE, ! FLAGS (SEE DOCUMENTATION) 
: 066 SWP_DPAT : BYTE, ! DATA PATTERN NUMB 
: 2067 SWP_UCNT : ! USER DATA PATTERN. COUNT 
; 068 SWP-UDPAT : VECTOR CMAX_UDP_CNT, WORD], ! USER DATA PATTERN 
3 2069 LSHIMEM, 

; 2070 LSUNIT, 

: 2071 LSLUN; 

; 2072 

; 2073 EXTERNAL ROUTINE 

: 2074 NEX_TRAP : L$ISR NOVALUE, 

° 2075 COPY_BLK : NOVALUE, 

3 2076 SET_CPAR : NOVALUE, 

3 2077 T_UPAR LUE, 

; 2078 GET_ENV, 

3 2079 T_ENV : NOVALUE, 

: 2080 GET_RETPKT 

: 2081 PUT_RETPKT VALUE 

: 2082 GET_10_BUFF OVALUE , 

: 2083 PUT_IO BUFF : NOVALUE, 

3 2984 PUTA_BOFF . 

3 2085 ouT_Tope 

3 2086 IN_TODQ : 

; 2087 DROP_CTLR VALUE 

: 2088 DRV_CTLERR : NOVALUE, 

3 2089 HARD_ERR Vv ° 

3 20' UPD_TOC ALUE, 

: 2091 OVF_CHK : NOVAL 

: 2092 XFR_CHK : NOVALUE . 

3 2093 SEND, 

; 2094 WAIT : NOVALUE, 

: 2095 MS_10 : NOVALUE, 

3 2096 MS_12 : NOVALUE, 

: 2097 EMS-13 : NOVALUE, 

3 2098 EMS_14 : NOVALUE, 

; 2099 EMS_15 : NOVALUE, 

: 2100 EMS 16 : NOVALUE, 


C 16 


SEQ ge 
CZRCD3 Tage aces DISK EXERCISER 11-Jul-1983 + 44:52 VAX-11 Bliss-16 V3=555 
01.0 DECLARAT 8-Jul=1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCDS. SRC; 3 Be 
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SEQ 0198 
: $ VAX=11 Bliss=-16 V3-555 P 13 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 19 4:5 age 
ECTION 8 19 3:5 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (3) 


v01.0 TEST S$ 
ZSBTTL ‘TEST SECTION’ 


83 08:4 
83 17:4 


'¢ 

: THIS SECTION CONTAINS THE TOP-LEVEL TEST CODE FOR THE RC25 DISK 

: EXERCISER. THE EXERCISER CONSISTS OF ONE TEST WHICH IS SUBDIVIDED INTO 
; A NUMBER OF SUBTESTS. ALL SUBTESTS ARE DECLARED WITHIN THIS BLOCK. 


le 

BGNTST; 

EOP_FLAG = FALSE; 

IF _.ENTRY_REASON NEQU NEW_PASS : —* RESTART, CONT, OR PWR FAIL 


THEN 
BEGIN 


BGNSUB; 
INIT_TEST (); ! INITIALIZATION SUBTEST 
ENDSUB; 


END, 
IF BIT_TST (SWP_FLAGS, SWF_DM) ! JF OPERATOR SELECTED DM EXERCISER 
pa ekns ! THEN 


WWWIWIWNWINININNNNNNNDN 2 2-3 2 


MUUNIES SHELLS RSWW 
eS SRS SRGASSSSYSARAN AS SONOS WN SG OWVNOA DR WN=S 


BGNSUB; 
eee 0); ! RUN DM EXERCISER SUBTEST 


ee mee ee mee cee ce mee ee ee me ee ee ee ee ee ee ee ee ee ee ed ed ed ed ed ed ed eed ed ed 


END 


E ! OTHERWISE 
BEGIN 


BGNSUB; | 
MULTI DRIVE (); ! RUN MULTI-DRIVE SUBTEST 
ENDSUB; 


END; 


DORPT; ! PRINT STATISTICS 
EOP_FLAG = TRUE; ! SET END-OF-PASS FLAG 


ENDTST; 
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CZRCD3 CZRCDAO RC25 DISK EXERCISER 
/v01.0/ 


RO 
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SEQ nag 
CZRCD3 CZRCDAO 544 DISK EXERCISER 11-Jul=1 : VAX-11 Bliss-16 V3-555 
v01.0 TEST SECT 8-Jul=-1 : DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;5 (3). 


000562 IENV.ADDR: 
ICST.ADDR: 
IDCT.ADDR: 
INT. ADDR: 


1 
1 
1 


RCINTO 
R 


DM. TIMR: 
SWEEP. FLAG: 


RDM. CNT: .WORD 
RANDOM: 
PATO2: 
PATO3: 
PATO4: 
PATOS: 
PATO6: 
PATO?7: 


=) 0O][7999) | L222 
N co 


177760 
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SEQ 0200 
CZRCD3 CZRCDAO RC25 DISK EXERCISER ~ 11-Jul-198 : VAX-11 Bliss-16 V3-555 Page 
v01.0 TEST SECTION 8-Jul-198 243: _DUA2: CDOUCETTE.CZRCDICZRCD3.SRC;3 (3) 


177740 
177700 


000000 
177777 


000000 
177777 
000001 
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CEREDAD ht DISK EXERCISER 11-Jul-1983 + 44:5 
TEST SECTI 8-Jul-1983 17:43:5 


~26456 


SEQ ay 
2 VAX-11 Bliss=-16 V3-555 
7 _DUA2: CDOUCETTE. CZRCDICZRCD3.SRC;3 (3 


o-0 $000] — 
UR VINIYIN MUTINY 


o=— 
mu 

_ 
win 
win 


NM 
ARVO LNOS 


WSO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
001334 
001336 


=44447 





CZRCD3 
v01.0 


500 


gggesegess 
guscsege 


eh eB eed a oad 
MAAN 
VIWMNYIWUI 
MINN VIG 
UVINMAYIWI 
ye eT ae et 


000025 


CZRCDA’ 
TEST S$ 


0 RC25 DISK EXERCISER 
ECTION 


PAT17: 


PAT18: 


PAT19: 


~22224 
=22224 


Wwe WN 


H 16 


11-Jul-19 
8-Jul-19 


83 
83 


08: 
17: 


4 


74 


4: 
3: 


52 
57 


VAX=-11 Bliss-16 V3-555 


DUA2: CDOUCETTE .CZRCD 


SEQ 0202 
age 
ICZRCD3.SRC;3 (3) 


I 16 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 0 
v01.0 ON 1 


SEQ 0203 
52 VAX-11 Bliss-16 V3-555 Page 18 
TEST SECTI 8-Jul-1983 57 


74 a 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 3)" 


8:44: 
7:43: 


p+ 
AAO 
= oe 
OO 


HESERS 


oe 


001 
001 
00 
00 
001 
00 
00 
00 
00 
00 
00 
00 
00 


™ 


PAT21: 
WO 
DPA.TBL: 


SERSRENES RASS 


PEERS 
QOS 


ane db dt 


SSSSS8SSSSSSSsSssssss 


S 
~% 





CZRCD3 
v01.0 


Sree rion RC25 DISK EXERCISER 


J 16 


11-Jul-1 
8-Jul-1 


—=VULUOLo— 
w oo P ad 
= —) 
mo 
onw 


0 
0 
0 
0 
0 
0 
0 
776 


SEQ 0204 
VAX-11 Bliss-16 V3-555 Page 
_DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (3) 





CZRCD3 
v01.0 


11 
007264 


CZRCDAO 574 DISK EXERCISER 
TEST SECTI 


K 16 


11-Jul-198 
8-Jul-198 


3 97308:55 


SEQ «* 
VAX-11 Bliss=-16 V3=-555 
_DUA2: CDOUCETTE .CZRCDICZRCD3. SRC; 3 3) 


20 


L 16 


craces CZRCDAO Tike DISK EXERCISER 11-Jul-19 


SEQ a 
83 + 44:52 VAX-11 Bliss=16 V3-555 
TEST SECTI 8-Jul-1983 17 


243:57 _DUA2: CDOUCETTE..CZRCDICZRCD3.SRC;3 iad 
027216 
115400 


007000 : 
104207 WORD 73571 





8 1 
SEQ 0207 
CZRCD3 CZRCDAO 514 DISK EXERCISER 11-Jul-1983 98: 44:52 VAX-11 Bliss=-16 V3-555 Page 22 
v01.0 TEST SECT 8-Jul-1983 17:43:57 _DUA2: CDOUCETTE.CZRCDJCZRCD3.SRC;3 (3) 


operas 


PATCH, CPT, CST, CST.ADDR, DCT 
DCT.ADDR, RC25.ADDR, IRC25.ADDR 


ENV.USE, RETP 
RP.ADDR, BUFF.DESC, B 0 
1000. IN, 1009. our, “enTRY: REASON 

LAG, EOP. LAG, ME MEM. MOAT LIP.FLAG 


PLEA SIZE, “FREE. RHEM. ADDR 
F TYPE 


T 
HOURS, MINUTES, S, Tl 
ST.CODE, SB.CODE, STEP, OF .RC 





c 1 


SEQ 0208 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss-16 V3-555 Page 
v01.0 TEST SECTION 8-Jul-1983 17:43:57 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (3) 


~GLOBL SA.REG, NEX, CRN, MSG.02, MSG.03 


23 


"GLOBL MSG.04, MSG.05, MSG.06, MSG.08 
"GLOBL €GD.10, EGD.11. EGD.12, EGD.13 
"GLOBL EGD.14, EGD.15. EGD.16, EGD.17 
*GLOBL €GD.18, EGD.19, EGD.20, EGD.21 
"GLOBL EGD.22, EGH.20. STC.00, STC.01 
"GLOBL STC.02. $16.03, STC.04, STC.05 
LOBL STC.06, STC.07, STC.08, STC.09 
GLOBL STC.10, STC.11. EX.CRN, EX.S8 
GLOBL EX.EL, EX.PA, EX.FMT, EX.EVC, EX.HMA 
LOBL EX.03, SWP.STRACK, SWP.ETRACK 
OBL SWP.FLAGS, SWP.DPAT .UCNT 


L MEM iT, LSLUN 

GLOBL NEX.TRAP, COPY.BLK, SET.CPAR, SET.UPAR 

GLOBL GET.ENV, PUT.ENV, GET.RETPKT, PUT.RETPKT 

GLOBL GET.IO.BUFF, PUT.10.8UFF, PUTA.BUFF 

GLOBL OUT.10DQ, IN.I0DQ, DROP.CTLR, DRV.CTLERR 
U VF. CHK, XFR.CHK 

GLOB WAIT, EMS.10, EMS.12, EMS.13 

"GLOBL EMS.14, EMS.15, EMS.16, EMS.17 

"GLOBL €MS.18, EMS.19, EMS.20, EMS.21 

"GLOBL EMS.22. EMS.30. EMS.42, EMS.43 


100000 B1T15== -100000 
040000 BIT14== 40000 
020000 B1T13== 20000 
010000 BIT12== 10000 
004000 BIT11== 4000 
002000 B1IT10== 2000 
001000 BITO9== 1000 
000400 BIT08== 400 
000200 B1T07== 200 
000100 B1T06== 100 
000040 BIT05== 40 
000020 B1T04== 20 
000010 BIT03== 10 
000004 BITO2== 4 
000002 B1T01== 2 
000001 B1T00== 1 
007000 B1T9== 1000 
000400 B1T8== 400 
000200 BIT7== 200 
000100 BIT6== 100 
000040 81T5== 40 
000020 BIT4== 20 
000010 B1T3== 10 
000004 BIT2== & 
000002 BITIi== 2 
000001 BITO== 1 
000040 EF .START== 40 
000037 EF .RESTART== 37 
000036 EF .CONT INUE== 36 
000035 EF .NEW== 35 
000034 EF .PWR== 34 
000340 PRIQ7== 340 
000300 PR106== 300 


CZRCO3 
v01.0 


fsa st DISK EXERCISER 


TEST $ 


0000006 
90600006 000005 


000000Vv 


000002 0000006 


7 000000v 


02 
3; Routine Size: 


000001 0000006 


oS 


" scosse 
Hnnnnnntnio—nrw 
nnnnn 


5$: 


Routine Base: 


words, 
+ Maximum stack depth per invocation: 2 words 


000000 004737 
000004 104466 
000006 006 
000010 105073 
00001 2 000207 
; Routine Size: 


Ss, 
+ Maximum stack depth per invocation: 


000000° 


6 word 


Routine Sooo: 
2 words 


RTS 
SCODES + 


RTS 
SCODES + 


oosflof 


EMH ENVS LOLS = 
So 


-100000 
$T1 TEST SECTION 
SCODES, RO 


FOP.FLAG 
teeta 


2 
PC, INIT.TEST 
67 


RO 
1$ 
#2,SWP.FLAGS 
4$ 


2 
PC,DM.EXER 
67 


2 
PC MULTI DRIVE 
67 


RO 
4$ 


24 

#1,E0P.FLAG 

PC 

0000 

T1 TEST SECTION 
PC,$T1 

66 


RO 
1$ 


PC 
0104 


SEQ oe? 
VAX=-11 Bliss-16 V3-555 


age 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (539 


24 





CZRCD3 
v01.0 


Seo Saou 
WN $$ OC OONOuew 


ee ee ee ee ee ee ce ce ee ce ce ce ce ee ee ee ce ed ed ed ed ed ed 


NoPonononofo nono nononononofunonononononononononononononononerononunen 
00 00 09 09 SININ SN NINN NNO AO 
WR DONOULSWN—"OVOOnoul 


i tr ear ear ar Pr ee er eer} 


hk ek ek ed ed od ed dd 
SSSRARANS 


NOMNoNgNNoNoNnoNngfofnonys 


S % 


Q@ 0210 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VA/-11_ Bliss-16 V3-555 Page 26 
INITIALIZATION SUBTEST ROUTINES 8-Jul-1983 17:43:57 DU42: CDOUCETTE .CZRCDICZRCD3.SRC;3 (4) 


ZSBTTL “INITIALIZATION SUBTEST ROUTINES’ 
ROUTINE INIT_TEST : NOVALUE = 


'+ 
' 


BEGIN 


IF MANUAL 
THEN 

PRINTF (MSG_04); 
IIP 4 = 7 TRUES 


DRIVER I 


INcR CTL FROM’ 0 TO (MAX_CTLR = 1) DO 


SET. 


IF cst ADDR ESTATE) EQLU ONLINE 


THE INITIALIZATION SUBTEST IS DESIGNED TO ho i THE EXISTENCE OF THE 
DEVICES AS CONFIGURED BY THE OPERATOR DURING THE HW DIA AND TO 
BRING EACH DEVICE ONLINE IN PREPARATION FOR EITHER THE MULTI-DRIVE 
SUBTEST OR THE DM EXERCISER SUBTEST. 


ACCESSED. 


IF ATTENDED 
THEN 


4 

“INIT SUBTEST START’ 

SET _INIT=IN-PROGRESS FLAG 
INIT DRIVER DATA AND DEVICES 
FOR EACH CONTROLLER 


CPAR (.CTLR) SET UP_COMMONLY-USED at > eceeneien DATA ITEMS 


—e IS STILL ALI 


"BEGIN 
vonaen™ 4 abd FROM (0 + OF_UN) TO (3 + OF_UN) DO ! FOR EACH PLATTER 


IF ((.CST_ADDR C.OFFSET, P_PRES] EQLU PRESENT) AND 
-CST_ADDR C.OFFSET, P_STAT) EQLU ONLINE)) 


“BEGIN 
SET_UPAR (.OFFSET); ' ! SET UP UNIT-RELATED DATA ITEMS 
ACCESS (); i TRY ACCESS TO INNER TRACK 
END; ! IF UNIT IS PRESENT AND ONLINE 
END; ! UNIT LOOP 
END; ! IF CONTROLLER IS ONLINE 
END; ! CONTROLLER LOOP 
IIP_FLAG = FALSE; ! CLEAR INIT-IN-PROGRESS FLAG 


END; 


! ROUTINE INIT_TEST 


e 4 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 98: 44: 
v01.0 83 17 


SEQ 0211 
52 VAX-11 Bliss=-16 V3=-555 
INITIALIZATION SUBTEST ROUTINES 8-Jul-19 243:57 


VOUA2: CDOUCETTE.CZRCDICZRCD3.SRC:3 (4° 


eSBTTL INIT. TEST INITIALIZATION SUBTEST ROUTINES 
0000006 INIT. TEST: 
JSR tans 3 


(SP) 
=(SP5 


1$ 
0000006 MOV #MSG.04 
000001 #1,-( 


(SP)+, (SP)+ 
000001 0000006 : #1, 1IP.FLAG 
000000Vv PC,DRIVER. INIT ; 

R ; CTLR 
; CTLR,* 


: R2,-(SP) 
0000006 PC, Ser CPAR 
0000006 csT. ADDR ,RO 
000002 2(RO) 


5$ 
000003 #3,R1 ; *, OFFSET 
: R1,RO ; OFFSET,* 


0000006 CST.ADDR,RO 
040000 Bg0000. (RO) 


020000 #20000, (RO) 

R* , (SP) ; OFFSET,* 
0000006 PC,SET.UPAR 
000000V PC ACCESS ; 

: R1 ; OFFSET 

000006 R1,46 ; OFFSET,* 

(SP)+ : 

R ; CTLR 
000003 +3 R243 ; CTLR,* 
0000006 IIP.FLAG 

T PC 


3; Routine Size: 54 words, Routine Base: $CODE$ + 0120 
> Maximum stack depth per invocation: 7 words 





G 1 
SEQ a 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss-16 V3-555 Page 28 
v01.0 INITIALIZATION SUBTEST ROUTINES 8-Jul=1983 17:43:57  _DUA2:CDOUCETTE.CZRCDIJCZRCD3.SRC;3 (Ss) 


ROUTINE DRIVER_INIT : NOVALUE = 


1+ 

: THIS ars A IS EQUIVALENT IN FUNCTION TO THE INITIALIZATION ENTRY 

: POINT OF A STANDARD DEVICE DRIVER. ITS RESPONSIBILITY IS TO INITIALIZE 
; DRIVER DATA, AND TO BRING EACH RC25 CONTROLLER AND UNIT ONLINE. 


BEGIN 


Mororononoropofenrr 
MoNPoPoPoTonofnofroeroeroeryd 
ed ed ed ad ad ad = 
WDONAULWN—O”O 


CAL 
ENV_ADDR; 


ENV_ADDR = MSCP_ENV + 8; ! ADDR (TEXT + 0) OF FIRST MSCP ENVELOPE 
INCR, COUNT FROM 0 TO (ENV, CNT = 1) DO ! FOR EACH MSCP ENVELOPE 


! MARK ENVELOPE FREE 
—s ! LOAD ENVELOPE ADDR INTO ENV DESCRIPTOR 


. ' SET FLAG IT 
i SET OWNERS 


N T, ENV fi : 
MSCP_ENV C.COUNT, ENV_OJ 3 HIP BIT 
LEN * 2); ! ADVANCE ADDR TO NEXT ENVELOPE 


ENV_ADDR = .ENV_ADDR (ENV 
END; 
INCR.CTLR FROM 0 TO (MAX_CTLR = 1) DO ! FOR EACH CONTROLLER 


1; 
1; 


IF .CST C.CTLR, IP_ADDR] NEQA 0 ! IF CONTROLLER IS PRESENT 
THEN ! THEN 
BEGIN 
SET_CPAR (.CTLR); ! SET UP CURRENT CONTROLLER PARAMETERS 
VEC-AD = .CST_ADDR CVEC ~ADDRI; ; CURRENT CONTROLLER'S VECTOR ADDRESS 
BRLEVEL = -CST_ ADDR [BR_LEVJ * 5; H os ONT psy LER’S BR LEVEL 
CTLR_I : AND CTLR DATA 
IF ‘pcr ADDR’ CSTAT] EQLU ONLINE 
BEGIN 


eg AA FROM (0 + OF_UN) TO (3 + OF_UN) DO ! FOR EACH UNIT (PLATTER) 


IF_.CST_ADDR C.OFFSET, P_PRES] EQLU PRESENT ! IF UNIT EXISTS 
ae ! THEN 


SET on (OFFSET); ! SET UP UNIT-RELATED DATA ITEMS 
UNIT_I Q; ! BRING UNIT ONLINE 


END; ! IF UNIT EXISTS 
END; ! UNIT LOOP 
END; ! IF CONTROLLER IS STILL ALIVE 


o 
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o 
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° 
o 
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H 1 
SEQ 0213 
11-Jul-1983 08:44:52 VAX-11 Bliss=-16 V3=-555 Page 29 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 
01.0 8-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (5) 


INITIALIZATION SUBTEST ROUTINES 


END; 
END; 
END; 


0000006 
0000106 
000377 0000006 


000104 
0000006 
000000 


G 
peers 0000026 


140000 
000104 


000137 


000016 
0000006 


60 0000006 


7 0000006 


0000006 
000002 000612' 
177000 000612" 


000004 
000005 
0000006 


0006 
000000v 
0000006 
000003 


0000006 
040000 


0000006 
000000v 
000006 


! IF CONTROLLER IS PRESENT 
! CONTROLLER LOOP 
! ROUTINE DRIVER_INIT 


-SBTTL DRIVER.INIT INITIALIZATION SUBTEST ROUTINES 


DRIVER. INIT: 
JSR 


1$: 


R1,$SAVE2 ; 
#mscP. oENV+10,n2 ; —" 


R . 

4377, ENV. USE(R1) : &,* (COUNT) 
R1,-(SP) : COUNT,* 
aie, CSP) 


BLSMUL 
RecASCP ENV(RO) 3 ENV.ADDR,* 
#MSCP.ENV+2,RO 


(RO) 
#140000, (RO) 


4.R *,ENV.ADDR 
(SP)+, (SP)+ 


; COUNT 
; COUNT ,* 


3 CTLR 
3; CTLR,* 


/BLSMUL 
(SP)+ (Sp)+ 
CST (RO) 
6$ 
R2,-(SP) 
PC. SET. CPAR 
csf. ADDR »RO 
2(RO) ,VEC.AD 
#177000. VEC OAD 


(S$?) 
4(RO) , (SP) 
#5,~(SP) 


RO 
CST.ADDR,RO 
#40000, (RO) 
4$ 

R1, (SP) 

PC, SET.UPAR 
PC;UNIT. INIT 
R1 

R1,46 

3$ 





..% 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1 
V INITIALIZATION SUBTEST ROUTINES 8-Jul-1 


022626 5$: (SP)+, (SP)+ 
0 6$: R 
000003 C Be a8 


PC 


: Routine Size: 86 words, Routine Base: SCODE$ + 0274 
: Maximum stack depth per invocation: 6 words 


SEQ 0214 
VAX=11 Bliss=16 V3-555 Page 30 
DUA2: CDOUCETTE.CZRCDICZRCD3.SRC;33 (5) 


2240 


: CTLR 2235 
; CTLR,* 


2209 





J 1 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-198 
v01.0 INITIALIZATION SUBTEST ROUTINES 8-Jul-198 


ROUTINE CTLRLINIT : NOVALUE = 


'¢ 


SEQ 0215 
3 98: 44:52 VAX=11 Bliss-16 V3-555 Page 31 
3 17:43:57 _DUA2: CDOUCETTE. CZRCDICZRCD3.SRC;3 (6) 


THIS ‘DRIVER'’ ROUTINE IS CALLED FROM DRIVER_INIT FOR EACH CONTROLLER 
a gs FOR TESTING. ITS GENERAL PURPOSE a TO BRING THE RC25 ONLINE 
O THE HOST. SPECIFICALLY, IT IS WRITTEN 


1. fa Ye te thy CONTROLLER DATA 
2. SET UP THE DEVICE'S INTERRUPT Vi 
INTERRUPT PROCESSING RUNS AT 
BASED ON THE ASSUMPTION THAT ALL R 
LEVEL OF 5 OR S. ANNOT BE BROKEN WITH 
A HIGHER PRIORITY INTERRUPT FROM ANOTHER RC25.) 
. PERFORM A REGISTER EXISTENCE TEST TO VERIFY THE DEVICE’S PRESENCE, 
- PERFORM A we TCR AND BR LEVEL TEST TO VERIFY THE DEVICE'S VECTOR 
ADDRESS AND INTERRUPT REQUEST LEVEL, 
5. DO A HARD INITIALIZATION (FOUR STEPS) ON THE DEVICE. 


IF ANY OF THESE INITIAL TESTS FAIL, THEN ALL UNITS ASSOCIATED WITH THE 
DEVICE ARE DROPPED. 


IMPLICIT INPUTS: 
CCTLR = CURRENT CONTROLLER NUMBER 
VEC_AD = ASSUMED VECTOR ADDRESS OF THE CURRENT CONTROLLER 
DCT_ADDR = ADDRESS OF CURRENT CONTROLLER'S DCT 
CST-ADDR = ADDRESS OF CURRENT CONTROLLER'S CST 
RC25_ADDR = ADDRESS OF CURRENT CONTROLLER'S IP REGISTER 


BEGIN 


LOCAL 
RESULT : WORD; 


INI_CTLR_DAT (); ! INITIALIZE CONTROLLER DATA 
SETVEC (VEC AD. “INT ADDR C.CCTLRJ, PRIOS); ' SE ICE*S ASSUMED VECTOR ADDRESS 
DCT_ADDR CIG_INT) = ' SE E INTERRUPT’’ 
L$LON = .CST_ADDR Cor “UN, P_UNIT); ! R eR OF CONTROLLER 
' (USED BY DRS FOR ERROR REPORTING) 
IF REG_EXIST () EQLU FAILURE ! REGISTER EXISTENCE eer’ IF FAILURE 


BEGIN 
DROP_CTLR (.CCTLR, DU_INIT); ! DROP ALL CONTROLLER'S UNITS 
RETURN; ; 


seu 


NMoPoNePoNonononononononoely 
NOUSWN—OOWONAOULSWN—O0ON 


WWII NNNW 


END; 
IF VEC_BR_TEST () EGLU FAILURE ' VECTOR ADDR AND BR LEVEL TEST. IF FAILURE 
THEN ! THEN 

BEGIN 

DROP_CTLR (.CCTLR, DU_INIT); ' DROP ALL CONTROLLER'S UNITS 

RETURN; 


END; 


NonoNoNnohoNnongngnongs 
WANNA 
POMOMONONOPONA) @ 3 2 SS ee 





K 1 
SEQ 0216 

CraCRS CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX=11 Bliss-16 V3=-555 Page 32 
v01.0 INITIALIZATION SUBTEST ROUTINES B-Jul-19835 17:43:57 DUA2: CDOUCETTE.CZRCDICZRCDS. SRC;3 (6) 
RESULT = HARD_INIT 0); ! ATTEMPT HARD DEVICE INIT 
DCT _ADDR C1G_INTJ = NO; : gen “IGNORE INTERRUPT’’ BIT 
IF _.RESULT FOLU SUCCESS ! IF HARD INIT WAS SUCCESSFUL 
TH en cin : THEN 


DCT_ADDR CSTAT) = ONLINE; ! MARK CONTROLLER ONLINE a * DRIVER’ 
CSTLADDR CSTATE) = ONLINE; ; N "PROGRAM 


N NG (); : * RING. 
WRT_RC25 (RCSA, RC_ALL, SA_GO); ! SET "GO" BIT (START CTLR POLLING) 
SET_CTLR_CHAR (); ! SET CONTROLLER CHARACTERISTICS 


END 


ELSE ! HARD INIT FAILED 
DROP_CTLR (.CCTLR, DU_INIT); ! DROP ALL CONTROLLER'S UNITS 


END; ! ROUTINE CTLR_INIT 


rororororornors 


mw 
Ww 
Ww 
wi 


eSBTTL CTLR.INIT INITIALIZATION SUBTEST ROUTINES 
oon 


1,=(SP) 
900000V PC, INI.CTLR.DAT : 
000240 #240,~(SP) § 
CCTLR,RO 


INT .ADDR(RO) ,=(SP) 
VEC.AD,~(SP) 


a7 (SP) 


3 
0000 0000006 #40000, aDCT.ADDR 
G MOV esta R DbR, RO 


R1 
177740 #177740.R1 


0000006 RIL 
000000v Is PC-REG.EXIST 


1$ 
006000Vv O. -WEC.ER. TEST 


S 


SSSSSSssssssss 


2$ 
0000006 : CCTLR, (SP) 
PC’DROP.CTLR 


#i2,SP 
5$ 


Whonht— 
NM — 
C—O 


000000v : PC HARD. INIT 
040000 0000006 #40000, aDCT.ADDR 
000001 MP RO, M1 


; RESULT,* 


a a a a et 


RSVSSSHKSSNSVEKVOs 


F SS 


100000 0000006 #100000, aDCT.ADDR 
00000¢ CST.ADDR,RO 
100000 000002 #100000, 2(RO) 
004737 000000v | PC, INI.RRING ; 
012701 000001 #1.R1 : *,RC.REG 


MN = NoPorMerer 
WA WAWWW 


ah a es 
Ww 


SoS 
S 
mr 





L 1 


SEQ a 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:4 44:52 VAX-11 Bliss-16 V3-555 
v01.0 INITIALIZATION SUBTEST ROUTINES B-Jul-1983 17:43:57 _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 6 


013700 0000006 RC25.ADDR,RO 
000002 R1,2(RO) ; RC.REG,* 
000000V + atietancacteae ; 


0000006 3$: CCTLR, (SP) 

000002 o= (SP) 

0000006 PC ,DROP.CTLR 
(SP)+ 


000010 4$: #10,SP 
5$: et 


3 Routine Size: 82 words, Routine Base: $CODE$ + 0550 
: Maximum stack depth per invocation: 7 words 





CZRCD3 
v01.0 


MPoNoNonofnoronoropoforororys 
VMMUMUNIVIVUIVIMIUIUT 
FWN Oo 0OnNO 


RRR RN 
MEWN—OOCONOU 


3 


o 
~N 


3 


Rononorororononofery 
RRS et 
ONAUSWN OO 


004137 
013701 
005301 





M1 
SEQ aa! 
CZRCDAO RC25 DISK EXERCISER 11-Jul-19 : VAX-11 Bliss-16 V3-555 Page 
INITIALIZATION SUBTEST ROUTINES 8 1 243: DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (7) 


ROUTINE INI_CTLR_DAT : NOVALUE = 


'+ 

: THIS ROUTINE IS RESPONSIBLE FOR a A bad 
DATA IN THE “DRIVER'® PORTION OF THE EXER 
CONTROLLER'S DCT AND OUTSTANDING COMMAND 


ING ALL CONTROLLER-RELATED 
isere THIS INCLUDES THE 


Z 
C 


4 
‘ 
‘ 
; IMPLICIT INPUTS: 

: CCTLR = CURRENT CONTROLLER NUMBER 
: DCT_ADDR = ADDRESS OF CURRENT CONTROI.LER*S DCT 

: OCL=X1, OCL_X2 = STARTING AND ENDING INDECES OF CURRENT 
CONTROLLER'S OUTSTANDING COMMAND AREA 


BEGIN 
INCR_INDEX FROM .OCL_X1 TO .OCL_X2 DO 
BEGIN 


OUTC_LIST C.INDEX) = -1; . | 
OUTC_TIMR C.INDEX] = 0; 2: 


END; 


DCT_ADDR CWORDO] = 0; ! CLEAR FIRST DCT WORD 
DCT_ADDR CRR_BEG) = COMM_AREA + 8 + (.CCTLR * COMM_LEN * 2); ! START GF RESPONSE RING 
RR-END] = .DCT_ADDR CRR _BEGI + ((RRING_LEN = 1) * 4); ! LAS OT IN RESPONSE RING 
-DCT— ADDR CRR_END] + 4; ! START OF COMMAN G 
DCT-ADDR CCR7BEG] + ((CRING_LEN = 1) * 4); ! PAST SLOT IN COMMAND RING 
DiT_ADDR_CRR_BEG); ! FIRST RRING SLOT TO POLL 
DCT_ADDR CCR_POLLIJ ct. ADDR CCR_ NEXT] = .DCT_ADDR CCR_BEG]; ! CRING POLL AND NEXT COMMAND POINTERS 


END; 


NIT OUTSTANDING CMD LIST 
ERO OUT OUTSTANDING CMD TIMERS 


~SBTTL INI.CTLR.DAT INITIALIZATION SUBTEST ROUTINES 
0000006 INI.CTLR.DAT: 
JSR R1,$SAVE2 


0000006 | Mov oc. .X1.R1 i, INDEX 
G1 : INDEX 


BR oH 
000377 0000006 : #377, 0UTC.LIST(R1) : *,* (INDEX) 
R1,RO : INDEX,* 


0000006 OUTC. TIMR(RO) is 
0000006 ; MP R1,0CL.X2 : INDEX,* 
0000006 MOV DCT.ADDR,R1 

(R1) 

#4,R2 


R1,R2 
CCTLR,~(SP) 
#110,-(SP) 


Pe ,BLSMUL 
000010° #COMM. AREA+10,R0 
RO, (R2) 


CZRCD3 

v01 .0 

000100 010061 
000104 062761 
000112 012700 
00,116 060100 
000120 016170 
000124 062710 
000130 011061 
000134 062761 
000142 011261 
000146 011061 
000152 011061 
000156 022626 
000160 0C<207 


; Routine Size: 
; Maximum stack 


CZRCDAO RC25 DISK EXERCISER 


INITIALIZATION SUBTEST ROUTINES 


000006 
000 
000010 


000006 


000012 


57 words, | . 
depth per invocation: 


Routine Base: 
6 word 


N 1 


11-Jul-1983 
8-Jul-1983 
MOV RO,6(R1) 
ADD #3h, 6(R1) 
MOV #10.RO 
ADD R1,RO 
MOV echt) (RO) 
ADD (RO) 
MOV {Roy 12(R1) 
ADD #34,12(R1) 
MOV (R25, 14(R1) 
MOV (RO). 20(R1) 
MOV (RO); 16(R1) 
CMP (SP)+,(SP)+ 
RTS PC 


SCODES + 1014 


08: 
17 


44: 
43: 


5 
5 


2 
7 


SEQ 0219 
VAX-11 Bliss-16 V3-555 


Page 
DUA2: CDOUCETTE.CZRCDICZRCD3. SRC; 3 (7) 


35 


2372 
2373 


2374 


2375 
2376 


2360 
2346 


B 2 


SEQ 0220 

CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss=-16 V3-555 Page 36 
v01.0 INITIALIZATION SUBTEST ROUTINES 8-Jul-1983 17:43:57 _DUA2: CDOUCETTE. CZRCDICZRCD3.SRC;3 (8) 
3 2379 ROUTINE REG_EXIST = 
: + 
3 2382 ! THIS IS THE ey Sere ete (OR ‘PROBE'') TEST DESIGNED = ae 
; 2385 =! THE PRESENCE OF AN RC2 E. THIS OBJECTIVE ACCOMPL 
3 2384 =|! SETTING UP THE EXI a MEMORY (NEX) TRAP VECTO CLOCATION ra AND 
$ 2385 =! ATTEMPTING TO READ WHAT I D TO BE THE DEVICE'S 
3 2386 =! REGISTERS. IF THE NEX TRAP HANDLER IS og DUE TO AN ABSENT DEVICE, 
3 2387 =! THEN THE GLOBAL DATUM 'NEX’’ WILL BE SET TO ‘‘TRUE’’. THIS 
$ Sae0 DETERMINES THE SUCCESS / FAILURE VALUE OF THIS ROUTINE. 
3 2390 ! IMPLICIT INPUTS: 
3 $30) : RC25_ADDR = ADDRESS OF CURRENT CONTROLLER'S IP REGISTER 
3 2393 
3 2394 BEGIN 
3 2395 
3 2396 LOCAL 
3 2397 TEMP : WORD, ! bh FOR READING SA AND IP 
3 $300 DUMMY : WORD; ! AS THE NAME IMPLIES 
; 2400 OF_RC = 2; ! SET UP TO READ SA FIRST 
5 2401: DO 
3 2402 BEGIN 
3 2403 
3 2404 NEX = FALSE; ! SET TO ‘'TRAP NOT RECEIVED’ 
3 2405 NETVEC’ (Ge NEX_ TRAP, PRIO7); !' SET LOCATION 4 TRAP tH ADDRESS 
3 2406 TEMP = .(. *RC25~ ADDR + .OF RO); ' READ ete. (THEN TRAP OR CONTINUE) 
; 2407 DUMMY = 0; ' DUMMY INS Hay ION TO COVER TRAP RETURN BUG 
3 2408 ! A TURNS TO NEXT INSTRUCTION) 
3 2409 CLRVEC (4); ! CLEAR (OCAT ION 4 TRAP VECTOR ADDRESS 
3 2410 IF .NEX EQLU TRUE ' JF NEX TRAP OCCURRED 
r 2411 THEN ! THEN 
F S118 BEGIN 
3 2414 ERRDF (10, ECD 10, EMS_10); ! "REGISTER EXISTENCE TEST FAILED** 
; 2415 RETURN FAILURE 
3 2416 
; 2417 END 
3 2418 ELSE 
3 $4350 OF_RC = .OF_RC = 2; § SET UP FOR IP REG OR QUIT 
3 2421 END 
$ 2422 
3 2423 UNTIL .OF_RC LSS 0; 
: 2424 
5 2425 RETURN SUCCESS; 
3 2426 
; 2427 ~=END; 

-SBTTL REG.EXIST INITIALIZATION SUBTEST ROUTINES 
000000 004137 000000G REG.EXIST: 

JSR R1,$SAVE2 3 2379 
000004 012737 000002 0000006 MOV #2,0F .RC 3 2400 
000012 005037 0000006 1$: CLR NEX ; 2404 
000016 012746 000340 MOV #340,-(SP) 3 2405 


C 2 


11-Jul-1983 08:44:52  VAX=11 Bliss-16 3-555 exyien 
= _ : : ™ ss- ba 
u 83 19:43:89 


CZRCD3 CZRCDAO RC a 
~DUA2: CDOUCETTE..CZRCDIJCZRCD3.SRC;3 (a). 


ER 

INITIALIZA UTINES 8-Jul-19 

#NEX. TRAP, =(SP) 

#4, (SP) 
#3,~(SP) 
RC25.ADDR,RO 
OF .RC,RO 
(R0) Ri 

#4,RO 
0000006 000001 MP NEX,#1 

BN 2$ 


— = 
“N 
Owes 


o—o0oo 
> 
S 


SSsS 
sResescé 


s 
vIn 


eocen 
ss 


& 
wi 


G 
000010 
000002 0000006 
000010 
0000006 
000001 


3$: 


3; Routine Size: 49 words, Routine Base: S$CODE$ + 1176 
s 


3; Maximum stack depth per invocation: 9 word 








CZRCD3 
v01.0 
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CZRCDAO RC25 DISK EXERCISER 
INITIALIZATION SUBTEST ROUTINES 


ROUTINE VEC_BR_TEST = 


'¢ 


BEGIN 


1F MANUAL 


THIS ROUTINE bang TO VERIFY (A) THAT THE RCe> bs it oo GIVEN 
BY THE US THE HW DIALOG IS VALID, AND (B) 
Ly. bEVICE te CORRECT THE FIRST 
CPU PRIORITY TO 0 AND FORCING 


Y BE TIN FOR TH A 
VER Try "VECTOR ee {cTaat DEVICE _XXXXXX(O IN 
T Cc TED’ IS PRINTED i ITs SUCCESSFUL 
IF tHe LET -€ DOES NOT E AN_ERROR IS 
NOT REPORTED, THEN PROGRAM CONTROL IS ASSUMED LOST AND A FATAL TRAP HAS 
LIKELY OCCURRED. AT THIS POINT, THE EXERCISER MUST BE STARTED AGAIN. 


IF THIS TEST SUCCEEDS, THEN THE BR LEVEL TEST IS RUN BY Ae THE 
PROCESSOR PRIORITY TO THE ASSUMED INTERRUPT PRIORITY GIVEN BY THE 
USER. A FORCED IN Hh UPT SHOULD NOT OCCUR. THEN, BY LOWERING THE 
PRIORITY BY ONE, THE DELAYED INTERRUPT SHOULD OCCUR. 

RC25_ ADDR - ADDRESS OF CURRENT CONTROLLER'S IP REGISTER 


IMPLICIT pete 
DCT ADDR = ADDRESS OF CURRENT CONTROLLER'S DCT 
RC25_ADDR = ADDRESS OF CURRENT CONTROLLER'S IP poh bay 
VEC_AD = ASSUMED VECTOR ADDRESS OF THE CURRENT CONTROLLER 
BRLEVEL ° seecctier 2: > +7 ie INTERRUPT LEVEL OF THE OCURRENT 


IF ATTENDED 
HEN 


FORCE AN INTERRUPT 


' 

HEN i 
PRINTF (MSG_02, .VEC_AD, .RC25 -ADDR); ! ! "ABOUT TO VERIFY VECTOR...°° 

i 


IF INT_GEN () EQLU FALSE™ 
THEN 


IF INTERRUPT DID NOT OCCUR 


BEGIN 


ERRDF (11, EGD_11, 0); 


! “VECTOR TEST FAILED’* 


RETURN FAILURE? 


END 
ELSE 


! INTERRUPT DID OCCUR 


BEGIN 
IF MANUAL ' oF Srreees 


HEN ! THEN 
PRINTF (MSG_03); ! “COMPLETED.* 
Font ( BRLEVEL); ! SET PRIORITY TO ASSUMED BR LEV 


EL 
TLGEN () EQLU FALSE ! FORCE AN INTERRUPT (SHOULD Nor OCCUR) 
: oF INTERRUPT DID NOT OCCUR 
BEGIN 
SETPRI (.BRLEVEL = %0°40"); : Lover PRIORITY BY 1 


DELAY 58 i 
LF get ADDR [SA_SAVE] NEQUO ! IF INTERRUPT DID OCCUR (SA_SAVE WOULD BE NON-ZERO) 


VAX-11 Bliss-16 V3-555 age 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (9) 


Q@ 0222 


38 





Oe 


SEQ 0223 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:4 44:52 VAX-11 Bliss=-16 V3-555 Page 
v01.0 INITIALIZATION SUBTEST ROUTINES 8-Jul-1983 17:43:57 DUA2: CDOUCETTE.CZRCDICZRCD3.SRC33 (9) 


BEGIN 


SETPRI (PRIOO); ! RESTORE PROCESSOR PRIORITY TO 0 
RETURN SUCCESS; ! ONLY SUCCESSFUL EXIT POINT 


END; 
END; 
END; 
SETPRI (PRIOO); ' COME HERE ONLY FOR BR TEST FAILURE 
ERRDF (12, EGD.. 12, EMS_12); ' "BR LEVEL TEST FAILED’’ 
RETURN FAILURE; 


-GLOBL LSDLY 


VEC.BR.TEST INITIALIZATION SUBTEST ROUTINES 


R1,=(SP) 
=(SP) 
50 


1$ 
RC25.ADDR,=(SP) 
VEC. AD, (SP) 
#MSG.02,-(SP) 
#3,-(SP) 
SP-RO 


, .SBTTL 
VEC.BR.TEST: 
MOV 


#10,SP 
PC, INT.GEN 
RO 


? 3$ 
0000006 MO #MSG.03,-(SP) 
000001 MOV #1,-(SP) 


e 


(SP)+, (SP)+ 
000614" : BRLEVEL,RO 


41 
000000v a aan 


— 


Wwronrnrn— oon 
NEVSanoRvsee 


BN 8$ 
000614° BRLEVEL ,RO 
000040 #40,R0 


SeGSEEES88 





’¢@ 
SEQ Gee’ 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 0 98: 44:52 VAX-11 Bliss=16 V3-555 Page 40 
v01.0 INITIALIZATION SUBTEST ROUTINES 8-Jul-1983 17:43:57 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (9) 


012701 000001 ; *,S$STMP2 2482 
1410 4$: 
0000006 Le ; *,S$$TMP1 


5$: ; SSTMP 

; SSTMP1 
BN 

6$: ; SSTMP2 


4$ 
0000006 7$: DCT.ADDR,RO 
000002 2(RO) 
8$ 
RO 
41 
000001 MOV #1,R0 
BR 10$ 
RO 
41 
gS 
14 
EGD.12 
EMS.12 
9$: 
10$: 


(SP)+ 
(SP)+,R1 
PC 


: Routine Size: 77 words, Routine Base: S$CODE$ + 1340 
: Maximum stack depth per invocation: 8 words 





G 2 


SEQ Gee? 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08: 44:52 VAX=-11 Bliss=-16 V3-555 rage 
v01.0 INITIALIZATION SUBTEST ROUTINES B-Jul-19835 17:43:57 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (10 


ROUTINE INT_GEN = 


'¢ 

: THIS ROUTINE ot AN me INITIALIZATION SEQUENCE, BUT ONLY 
COMPLETES Th 0UGH THE STEP 1 WRITE. ITS PURPOSE IS TO CREATE AN RC25 
INTERRUPT (AT THE CORPLETION of STEP 1) IN ORDER TO HELP VERIFY THE 


So 


IMPLICIT INPUTS: 
DCT ADDR = ADDRESS OF CURRENT CONTROLLER'S DCT 
RC25_ADDR = ADDRESS OF CURRENT CONTROLLER'S IP REGISTER 


BEGIN 


LOCAL 
pravee : WORD, 
SA : WORD; 


IE-BIT-AND=VECTOR-ADDRESS/4 BYTE 
! STORAGE FOR STEP 1 READ AND WRITE 


MINROROPURIMININUNINUN 2 3 3 
WR =O DONAULSWN—OCV0ONOULWN—OO 


MMA AMI) 
Nou 


NOMUSWN OO 


PonoPonononofononononononononononononononorononny 
MMMM MAMMA UI UT 


SERRE 


DCT_ADDR CSA SAVE] = 

1E_VEC = (.VEC_AD a3 OR SA_INT; 

wet at 300 (RIP; ARC ALL, ALL_ONES); 
Aes ADDR CRCSA, RC_ALLJ; 

SA = (WR RING * 8) OR .IE ahG Ce 

WRT_RC25~ (RCSA, RC_ALL 

INCR COUNT FROM 1 TO 10 BO 


DELAY (333); 
.RC25_ADDR CRCSA 
13 BIT_TST" (SA, SA_S25 
HEN 
EXITLOOP; 
END; 
IF .DCT_ADDR CSA_SAVE] Eau 0 
_RETURN FALSE 
RETURN TRUE; 


END; 


- SBT 
0000006 INT.GEN: JSR 
SUB 


0000006 
000002 
000612" 


RC_ALLJ; 


ZERO OUT SA SAVE er. IN DCT 
VEC_ADDR / 4 WITH IE = 1 
vo ty IP TO START INIT SEQUENCE 


STEP 1 READ 

STEP 1 WRITE VALUE 
STEP 1 WRITE 

TEN SECOND LIMIT 


! ABOUT 1 SECOND 

! READ SA REGISTER 

! IF STEP 2 HAS BEGUN 
THEN 


i BREAK OUT 


' IF SA SAVE WORD WAS NOT TOUCHED 
i INTERRUPT DID NOT OCCUR 

i OTHERWI 

i INTERRUPT DID OCCUR 


INT.GEN INITIALIZATION SUBTEST ROUTINES 
R1,$SAVE 


#6,SP 

DCT.ADDR,R4 : 
(R4) 

VEC.AD,RO ; 

RO 

RO 





CZRCD3 
v01.0 
000030 
000032 
000036 00 
000042 010077 
000046 
000052 
000054 


oe 


2 


: Routine Size: 
: Maximum stack 


CZRCDAO RC25 DISK EXERCISER 


INITIALIZATION SUBTEST ROUTINES 


000200 
177777 
0000006 
000764 
0000006 
000004 


0000006 
000002 


000002 
115400 


000012 
000515 


0000006 
000004 


010000 
000002 
000001 
000006 


74 words, | D 
depth per invocation: 


1$: 


2$: 


3$: 
4$: 


5$: 
6$: 


7$: 


8$: 
9$: 


10 


11 
12 


10 


$: 
$: 


Routine Base: 
words 


H 2 


11-Jul-198 
8-Jul-198 


RO,R3 
#200,R3 
#=1,R0 

RO, @RC25.ADDR 
#764,R1 


1$ 
RC25.ADDR,RO 
2.R5 


RO,RS 
(R5) 2(SP) 
#115400,R2 


(R5), (SP) 

R2 
#10000,R2 
10$ 


SCODES + 1572 


WW 


244: 
243: 


VAX-11_ Bliss-16 V3-555 
DUA2: CDOUCETTE .CZRCD 


* ,SSTMP1 
S$STMP 
SSTMP1 
SSTMP2 
*,RC.REG 
*,SA 
*,SA 
COUNT 


Page 2 
JCZRCD3.SRC33 (10 


2525 
2526 


2527 


2528 
2529 


2530 
2533 


2534 
2535 
2530 
2541 
2517 


2501 


I 2 


SEQ 022? 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 He 44:52 VAX-11 Bliss=-16 V3=555 rege 
v01.0 INITIALIZATION SUBTEST ROUTINES 8-Jul=1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCDS. SRC;3 (11 


ROUTINE HARD_INIT = 


'¢ 

: THIS ROUTINE ee eioey He FOUR READ / WRITE STEPS REQUIRED TO 
Me: AN * ot 25“DEVICE. IF NO READ ERRORS ARE AL IN_ANY OF 
THE FOUR STEPS THEN. A SUCCESS jn | IS RETURNED TO THE CALLER. 
OTHERWISE, ADDITIONAL ATTEMPTS MAY BE MADE TO INITIALIZE THE DEVICE. 
IF ALL ATTEMPTS FAIL, A FAILURE INDICATION IS RETURNED. 


IMPLICIT INPUTS: 
RC25_ADDR = ADDRESS OF CURRENT CONTROLLER'S IP REGISTER 
VEC_AD = ASSUMED VECTOR ADDRESS OF THE CURRENT CONTROLLER 
DCT_ADDR = ADDRESS OF CURRENT CONTROLLER'S DCT 


PAPAS ATAU 
VM & 
WONOULSWN—O OO 


BEGIN 


LOCAL 
IE_VEC : WORD; ! [E-BIT-AND-VECTOR=ADDRESS/4 BYTE 
! (USED IN STEP 1 WRITE AND STEP 3 READ) 


IE_VEC = .VEC_AD “* <2; ! GET VECTOR ADDR/4 (IE = 0) 
INR SATTENPTS” FROM 1 TO INI ATT DO 


AAQMIMIVIUIVUVIVIVI 


NMPoPoNoNoNoNoNonononononofererenr 
BARRETT 


Moronononoenoetry 
VMMMUVIWMIUIY 


Nae 


WRT RC25 ofhciP. RC_ALL, ALL_ONES); ! WRITE IP TO START INIT SEQUENCE 
DELAY (500); ! WAIT 


STEP 1 
STEP = 1; 
SA_ REG = .RC25_ADDR CRCSA, RC ALLI; ! READ SA 
IF-(.SA_REG AND S1_MASK) EQLU™SA_ $i ! IF STEP 1 READ IS O.K. 
HEN ! THEN 
BEGIN 
A_REG = (WR_RING * 8) OR .IE uc ! STEP 1 WRITE VALUE 


SRT RC25 (RCSA RC itt .SA_REG) i STEP 1 
INCR_ COUN OUNT F 16 DO i TEN SECOND LIMIT 


DELAY (333); ! ABOUT 1 SECOND 
SA_REG ~RC25 ADDR eres RC_ALLJ; ! READ SA REGISTER 
IF BIT. TST (SAq REG, S $25 ! IF STEP 2 HAS BEGUN 
HEN ! THEN 
EXITLOOP; ! BREAK OUT 
END; 
STEP 2 


STEP = .STEP 
can - SA_REG AND §2_ MASK) EQLU (SA_S2 OR WR_RING) ! ito 2 READ IS 0O.K. 


BEGIN 
WRT_RC25 (RCSA, RC_ALL, .DCT_ADDR CRR_BEG)); ! RINGBASE=LO, PI = 0 
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ZRCDAO RC25 DISK EXERCISER 
NITIALIZATION SUBTEST ROUTINES 


INCR COUNT FROM 1 TO 10 DO 
BEGIN 


DELAY (333); 


SA_REG = ~RC25_ADDR Rega s RC_ALLJ; 


IF epite TST (SA_REG, S 
ey EXITLOOP; 
END; 
STEP 3 
STEP = .STEP 


rex -SA_REG ano’ §3_ MASK) EQLU (SA_S3 OR .IE_VEC) 


BEGIN 


WRT_RC25 (RCSA. RC_ALL 
INCR COUNT FROM 1 To 10 Ba 


DELAY (333); 
SA_REG = .RC25_ADDR CRCSA 
IF BIT_TST (SA-REG, SA_S4) 


HEN 
EXITLOOP; 
END; 
STEP 4 
we = .STEP 


ihe SEQ 0228 


Page 
243:5 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 aay 
! TEN SECOND LIMIT 


11-Jul-1983 08: 44536 VAX-11 Bliss-16 V3-555 
983 1 


8-Jul=-1 


! ABOUT 1 SECOND 
! READ SA REGISTER 
! IF STEP 3 HAS BEGUN 


! THEN 

! BREAK OUT 

! IF STEP 3 READ IS O.K. 
! THEN 

! PP, RINGBASE-HI = 0 


i TEN SECOND LIMIT 


! ABOUT 1 SECOND 


RC_ALLJ; ! READ SA REGISTER 


! IF STEP 4 HAS BEGUN 
! THEN 
! BREAK OUT 


+ 1; 
IF (.SA_REG AND $4_MASK) EQLU SA_S4 ! IF STEP 4 READ IS 0O.K. 
THEN ! THEN 


BEGIN 


WRT_RC25 (RCSA, RC_ALL, 0); 
RETURN SUCCESS; 


END; 
END; 
END; 
END; 
END; 


ERRDF (13, EGD_13, EMS_13); 
RETURN FAILURE? 


END; 


! BURST, LF, GO = 0 
i SUCCESS EXIT POINT 


! TRY AGAIN OR GIVE UP 
! “INIT SEQUENCE FAILED"’ 


! ROUTINE HARD_INIT 


~SBTTL HARD.INIT INITIALIZATION SUBTEST ROUTINES 





CZRCDAO 


INITIALIZA 


0000006 


le od 
000612" 


600764 


0000%2 


000001 
000010 
000010 
001777 
004600 
0000006 
115400 
0000006 
6 000000 
000012 
000515 


000012 


0000006 
0000006 


003400 
010233 
0000006 
000004 
000000 


RC25 D 
TION 


0000006 
000010 
0000006 


0000006 


ISK E 


ERCISER 
TEST ROUTINES 


HARD. INIT: 
R 


1$: MOV 
2s: BEQ 
3$: CLR 


4$: DEC 
5$: MOV 


6$: 
7$: BEQ 


8$: CLR 


9$: DEC 
10$: MOV 


11$: INC 


K 2 


11-Jul= 
8-Jul- 


RSS SSAVES 
VEC. “AD, R4 
R4 


R 
LSDLY,R3 
RC25.ADDR,RO 
#2,-(SP) 
RO, (SP) 
#2,R5 


#-1 ~RO 
Oa” mae 


#1,STEP 
@0(SP) ,10(SP) 
10(SP) ,SA.REG 
10(SP) ,RO 


#1777, 

RO, #4000 

24$ 

R4,SA.REG 
#115400, SA.REG 
S, RO 


PO CSP), 6(SP) 

6 (SP) SA. REG 
#10 10006,6(SP) 

Ne 

66 

STEP 
SA.REG,RO 
#3400,R0 

RO, Wi6233 

DCT.ADDR,RO 

4(RO) RO 

RO, a0(SP) 


Se Ge Se Ge Se 


VAX-11 Bliss-16 V3-5 
_DUA2: CDOUCETTE. VERB ICZRCDS. SRC; 


* ATTEMPTS 


; *,RC.REG 
; RC.REG,* 
; *,$STMP2 
; *,SSTMP1 
; SSTMP 

; SSTMP1 

; SSTMP2 


*,RC.REG 


; RC.REG,* 
; SA.REG,* 


; IE.VEC,* 


; *,RC.REG 
; oe 


* , COUN 
* ,SSTMP2 


; *,SSTMP1 


*, SA.REG 


; COUNT 


* ,RC.REG 
C 


° * 


3 i i - 


2548 
2569 


2574 
2579 


2570 
2573 
2574 


2578 
2579 


2580 


2584 
2585 


2586 
2589 


2590 
2591 
2586 


2599 
2600 


2604 


L 2 


SEQ 0230 

CZRCD3 CZRCDAO RC2S DISK EXERCISER 11-Jul-1983 08:44:52 YAK=11 Bliss=16 V3-555 Page 46 
v01.0 INITIALIZATION SUBTEST ROUTINES B=Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDIJCZRCD3.SRC;3 (11 
000302 012702 000012 MOV #12,R2 : *, COUNT 2605 
000306 012701 000515 12$: MOV #515,R1 + *.$$TMP2 2608 
000312 001410 13$:  BEQ 16$ 
000314 010 MOV R3,RO ; *,SSTMP1 
000316 001404 BEQ 15 
000320 005066 000012 14$: CLR © 12(SP) : SSTMP 
000324 005300 DEC RO + S$S$TMP1 
000326 001374 BNE 14$ 
000330 005301 15$: DEC R1 : SSTMP2 
000332 000767 BR 13$ 
000334 017666 000000 000004 16$: MOV a0(SP) ,4(SP) z *,RC.REG 2609 
000342 016637 000004 0000006 MOV 4(SP) ,SA.REG + RC.REG,* 
000350 032766 020000 000004 BIT #20000,4 (SP) : *,SA.REG 2610 
000356 001002 BNE 17$ 

360 005302 DEC R2 : COUNT 2605 
000362 001351 BNE 12$ 

005237 0000006 17$: ‘INC STEP : 2618 

000370 013701 0000006 MOV SA.REG,R1 : 2619 
000374 0427 BIC #3400,R1 
000400 010400 MOV R4,RO : IE.VEC,* 
000402 052700 020000 BIS #20000,R0 
000406 020100 CMP R1,RO 
000410 001052 BNE 24$ 
000412 005000 CLR RO : RC.REG 2623 
000414 005076 000000 CLR 30 (SP) 
000420 012702 000012 MOV #12,R2 : *, COUNT 2624 
000424 012701 000575 18$: MOV #515,R1 + *.$$TMP2 2627 
000430 001410 19$:  BEQ 22$ 
000432 010300 MOV R3,RO : *,SSTMP1 
000434 001404 BEQ 
000436 005066 000012 20$: CLR 12(SP) : S$STMP 
000442 005300 DEC RO + S$STMP1 
000444 001374 BNE 20$ 
000446 005301 21$: DEC R? : SSTMP2 
000450 000767 BR 19$ 
000452 017666 000000 000002 22$: MOV a0(SP),2(SP) : *,RC.REG 2628 
000460 016637 000002 0000006 MOV 2(SP) ,SA.REG + RC.REG,* 
000466 032766 040000 290002 BIT #40000,2(SP) > *,SA.REG 2629 
000474 001002 BNE 23$ 
000476 005302 DEC R2 : COUNT 2624 
000500 001351 BNE 18$ 
000502 005237 0000006 23$: INC STEP : 2637 
000506 013700 0000006 MOV SA.REG,RO ; 2638 
000512 042700 003777 BIC #3777,RO 
000516 020027 040000 CMP RO, #40000 
000522 001005 BNE 4 
000524 005076 000000 CLR a0(SP) : 2642 
000530 012700 000001 MOV #1,R0 ; 2640 
000534 000411 BR 26$ 
000536 005305 24$: DEC R5 : ATTEMPTS 2570 
000540 001402 BEQ 253 
000542 000137 002060" MP 1$ 
000546 104455 25$: TRAP 55 : 2655 
000550 000015 .WORD 15 
000552 00 : EGD.13 
000554 0000006 "WORD EMS.13 
000556 00500 LR RO : 2563 


M2 


SEQ 0231 
CZRCO3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss-16 V3-555 page & 
v01.0 : INITIALIZATION SUBTEST ROUTINES 8=Jul-1983 17:43:57 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (11 
000560 062706 000014 268: ADD #14,SP 3 2548 
000564 000207 RTS PC 


; Routine Size: 187 words, Routine Base: SCODES + 2016 
3; Maximum stack depth per invocation: 14 words 


N 2 


SEQ 0232 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08: 44:52 VAX-11 Bliss-16 V3-555 age 
01.0 INITIALIZATION SUBTEST ROUTINES B-Jul-1983 17:43:57 | _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (12 
: 2659 ROUTINE INI_RRING : NOVALUE = 
. soe) 44 
; 2662 | THIS ROUTINE IS RESPONSIBLE FOR ALLOCATING ENOUGH | msc ENVELOPES TO 
; 2663! FILL AN RC25 RESPONSE RING. THE ENVELOPE DESCRIPTOR OF EACH ENVELOPE 
; 2664 | (LOCATED IN FRONT OF THE ENVELOPE ITSELF) IS LOADED INTO SUCCESSIVE 
; 2665! RRING SLOTS. NOTE THAT THE ENVELOPE DESCRIPTORS HAVE BEEN INITIALIZED 
; 2666 | WITH THE FLAG AND OWNERSHIP BITS SET TO ‘1’, MAKING EACH SLOT 
; 667 ; CONTROLLER=OWNED. 
; 2669! IMPLICIT INPUTS: 
; 2670 ! CCTLR = CURRENT CONTROLLER NUMBER 
: 2671 ; DCT_ADDR = ADDRESS OF CURRENT CONTROLLER'S DCT 
: 2673 
; 2674 BEGIN 
: 2675 
; 2676 LOCAL 
3 2677 INDEX : WORD, 
: 2678 RRING_ADDR; 
3 2680 RRING_ADDR = .DCT_ADDR CRR_BEG); ! FIRST RESPONSE RING SLOT 
; 2681 Inch cont FROM 1~TO RRING_LEN bo 
: seas _ 
; 2684 INDEX = GET_ENV (.CCTLR); 1 GET AN MSCP ENVELOPE 
; 2685 MSCP_ENV CL. INDEX, MSGLEN) = MSG_LEN * 2; i SET MESSAGE LENGTH FIELD 
3 2686 .RRING_ADDR = <MSCP_EN V C. INDEX; ENV_LOJ; | LOAD LO-ORDER ENV DESC INTO SLOT 
: 2687 RRING_ADDR = .R DR + | ADVANCE TO SECOND WO 
; 2688 .RRING_ADDR = MSCPD ENV C.INDEX, ENV_HIJ; ! LOAD HI-ORDER ENV DESC INTO SLOT 
; 2689 RRING_ADDR = .RRING_ADDR + 2; i ADVANCE TO NEXT SLOT 
; 2691 END; 
3 2692 
; 26935 END; 
.SBTTL INI.RRING INITIALIZATION SUBTEST ROUTINES 

000000 004137 0000006 INI.RRING: 

JS R1,$SAVE3 ; 

013700 0000006 MOV DCT.ADDR,RO : 
000010 016002 000004 MOV 4(RO) ,R2 + *,RRING.ADDR 
000014 012701 000010 MOV #10,R > *, COUNT 2681 
000020 013746 0000006 1$: MOV CCTLR,-(SP) : 
000024 004737 000000G JSR PC, GET.ENV 
000030 010003 MOV RO.R3 : *, INDEX 
000032 010316 MOV R3, (SP) : INDEX,* 2685 
000034 012746 000104 MOV #104, (SP) 
000040 004737 0000006 JSR 
000044 012760 000074 0000046 MOV Wete ae cEnye4 
000052 016022 0000006 MOV mscP. ENV(RO), (R2)+ : *,RRING.ADDR 2686 
000056 016022 0000026 MOV CP:ENY+2(RO) (R2)+ : *-RRING.ADDR 2688 
000062 122626 CMP Ree ae (SP)+ : 2682 

(95301 DEC R1 : COUNT. 2681 


000066 007354 BNE 1$ 
000070 000207 RTS PC : 2 


B 3 


a 0285 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss-16 V3-555 pag 
v01.0 INITIALIZATION SUBTEST ROUTINES 8-Jul-1983 17:43:57 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (12 
: Routine Size: 29 words, Routine Base: SCODE$ + 2604 


> Maximum stack depth per invocation: 7 words 


SEQ 0234 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 244: VAX=11 Bliss=-16 V3-555 age 0 
v01.0 INITIALIZATION SUBTEST ROUTINES 243: ~DUA2: CDOUCETTE..CZRCDICZRCD3.SRC;3 (13 


ROUTINE SET_CTLR_CHAR : NOVALUE = 


THIS ROU 
INITIALI 


in CALLED BY CTLR_INIT AFTER THE Rt HAS ae HARD- 
CHARACTERIS 

IN 

CT 


A 
PURPOSE IS TO FORMAT AND SEND THE ‘SET CONTROLLER 
COMMAND , 


I 
I 
C AND TO VERIFY THAT THE MESSAGE “OAS ACCEPTED. 


E 
Tl 
PUT 
LR 


IMPLICIT 


s 
T 
~ 
S: 
C = 


CURRENT CONTROLLER NUMBER 


: ! DROP UNIT REASON 
MLINDEX : WORD; ! MSCP ENVELOPE INDEX 


M_INDEX = GET_ENV (.CCTLR) ! GET AN MSCP ENVELOPE 
MSCP_ENV C.M_INDEX, “OPCODES = ' OPCODE = ser CTLR CHAR 
MSCP_ENV C.M_INDEX, C_FLAGS] = ore Sasi + CF_THS; ! CONTROLLER FLAGS 
IF SEND (.M_INDEX) “eoCu ARF une ! arent SENDS IF CTLR IS OFFLINE 

PUT_ENV (.M_INDEX) ' RETURN ENVELOPE TO POOL 
ELSE ! IF SEND WAS SUCCESSFUL 

BEGIN 

WAIT (); ! WAIT FOR RETPKT RESPONSE 

RP_I NDX’ = OUT_IODQ Fe ' GET INDEX OF RETPKT 

RP-ADDR = RETPKT + (.RP_INDX * RP_LEN * 2); ! CALCULATE RETPKT ADDRESS 

Fh ADDR CCONID] EQLO CID_DRIVER ! iF RETPKT 1S FROM DRIVER" 

BEGIN 


REASON = DU_FA ! ASSUME FATAL SA ERROR 
IF_.RP_ADDR™ EMESTYPI EQLU MT_TIMEOUT —— TIMED OUT 


HEN 
BEGIN 


REASON = DU_INI ! SET REASON TO INIT ERROR 
ERRDF 15, EGD_ is, EMS_15); ! "MESSAGE RESPONSE TIMEOUT’ 


END; 
DROP_CTLR (.CCTLR, .REASON); ! DROP CONTROLLER'S UNITS 
END; ! IF RETPKT IS FROM "DRIVER" 
PUT_RETPKT (.RP_INDX); 
END; ! IF SEND WAS SUCCESSFUL 
END; ! ROUTINE SET_CTLR_CHAR 
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-SBTTL SET.CTLR.CHAR INITIALIZATION SUBTEST ROUTINES 
000000 010146 oer .CMA, ove at ota 








dD 3 


SEQ 0235 
CZRCOS CZRCDAO RC25 DISK EXERCISER 11-Jul-17 : VAX-11 Bliss=-16 V3-555 Pa age 
Vv INITIALIZATION SUBTEST ROUTINES 8-Jul-1 : DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (13 


0000006 cCTLR (SP) ; 2711 
0000006 pC. GET ENV 


R1. (SP) 2712 
000104 MOV Riba: =(SP) 


0000006 PC,BLSMUL 
000004 0000206 a *MSCP, Env+20(R0) 
000120 0000266 “i ne .ENV#+26(RO) 


omu 


; M.INDEX,* 


38 


Seee 


: RP. INDX,* 


000003 000003 
* ,REASON 


000004 P 

000002 (RO) ,RO 
00 177417 #177417,R0 

000100 MP 100 


000002 gent ; *,REASON 
17 
EGD.15 
WOR EMS.15 
0000006 2$: CCTLR, (SP) : 
1,-(SP) ; REASON,* 
0000006 PC,DROP.CTLR 
(SP)+ 


0000006 3$: MOV RP. INDX, (SP) 
0000006 “we 


(SP 
4$: (SP)+, (SP)+ 
(SP)+,R1 


; Routine Size: 74 words, Routine Base: SCODE$ + 2676 
+ Maximum stack depth per invocation: 6 words 





g 3 
SEQ Ges 
CZRCO3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:4 VAX-11 Bliss-16 V3=-555 page 52 
v01.0 INITIALIZATION SUBTEST ROUTINES B-Jul-1983 17:4 _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (14 


ROUTINE UNIT_INIT : NOVALUE = 


'¢ 

THIS ROUTINE IS CALLED FROM DRIVER INIT +4 EACH CONFIGURED UNIT 
(PLATTER) WHICH IS ATTACHED TO *o CONTROLLER THAT SURVIVED 
INITIALIZATION. ITS PURPOSE IS 0 FORMAT” AND SEND AN ‘‘ONLINE 
MESSAGE, AND TO VERIFY THE RESPONSEs 


IMPLICIT INPUTS: 
CCTLR = CURRENT CONTROLLER NUMBER 
CBLAT - SUNRET PLATTER ADDRESS (MSCP UNIT NUMBER) 
LSLUN = CURRENT (DRS) UNIT 
CST_ADDR = ADDRESS OF Paid CONTROLLER'S CST 
CUOFF = CURRENT UNIT CST OFFSET 


BEGIN 


LOCAL 
REASON : WORD, 
M_INDEX : WORD; 


M_INDEX = GET_ENV (.CCTLR) 
MSC. ENV C.M_INDEX, PL ADDRI = fe 
MSCP_ENV C.M_ INDEX. OPTODE) = OP 
mSCP ENV C.M_INDEX, DDPAR] = “B1100; 
F SEND (.M INDEX)” EQLU FAILURE 


THEN 
PUT_ENV (.M_INDEX) 
ELSE 
BEGIN 


DROP UNIT REASON 
MSCP ENVELOPE INDEX 


GET AN MSCP ENVELOPE 

pA HL! gt (MSCP UNIT NUMBER) 
SHOW ALL ECC ERRORS IN ERROR LOG MESSAGES 
hh a TO SEND; IF CTLR IS OFFLINE 


HEN 
RETURN ENVELOPE TO POO 
OTHERWISE (SEND WAS SUCCESSFUL) 


| 0); ! WAIT FOR RETPKT eo 
P_IN NDX’ = OUT_I0DQ ? OF RETP 

RP “ADDR = REIPKT + (.RP_INDX * RP_LEN * 2); 

IF~ .RP_ADDR CCONIDIJ EQLO CID_DRIVER 

THEN 
BEGIN 


REASON = DU_FATA ! ASSUME FATAL SA ERROR 
IF_.RP_ADDR™ CMESTYP) EQLU MT_TIMEOUT i TIMED OUT 


THEN 
BEGIN 


REASON = DU_INI ' SET REASON TO INIT ERROR 
ERRDF (15, EGD_ 1, EMS_15); i "MESSAGE RESPONSE TIMEOUT’ 


END; 
DROP_CTLR (CCTLR, .REASON); ! DROP ALL CONTROLLER'S UNITS 
END 
— ! OTHERWISE, IF RETPKT IS FROM DISK MSCP 


ST_CODE = .RP_ADDR CSTSCOD); ! GET STATUS CODE 
SB-CODE = .RP_ADDR CSUBCOD]; ! GET SUB-CODE 
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- 2 


hes’ 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss=-16 V3-555 Page 
v01.0 INITIALIZATION SUBTEST ROUTINES 8-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDIJCZRCD3.SRC;3 (14 


IF_.ST_CODE NEQU ST_SUC ! IF STATUS CODE IS NOT SUCCESSFUL 
TH ! THEN 
BEGIN 
ERRDF (16, EGD_16, EMS_ 16); ; Ao aty FAILED*’ 
DUR C.LSLUN) ="DU_INIT; ! SET UP _— FOR DROPPING UNIT 
DODU (. LSLUN); : BROP UNIT 
END 
ELSE ! STATUS CODE IS 0.K. 
BEGIN 


IF a 3 TST (RP_ADDR CU_FLSSJ, UF WPH ! IF UNIT IS WRITE-PROTECTED AND 
-CST_ADDR CICUCFF, P _PROTS ECU UNPROTECTED) ) : — ALLOWED WRITES 


Nn 
BEGIN 


ERRDF (17, EGD_17, EMS_17); ! ‘WRITE=PROTECT CONFLICT’ 
DUR C. :LSLON] = “DU_INIT? : Setar TO DROP UNIT 


53 


poDU (.LSL : 
END 
ELSE ! WRITE PROTECT SWITCH IS O.K. 
BEGIN 
USIZE =. «RP ADDR CuS12Z_L0); ! UNIT SIZE (NO. OF LBN'S) 
cST_A C.CUOFF. P- STAT] = ONLINE; i MARK UNIT ONLINE 
rt. tsi UN] = ' 0.K. TO TEST 
Est _ADDR tu cnr) * .CST_ADDR CU_CNT] + 1; i INCR NO. OF TESTABLE UNITS 
END; 
END; ! IF STATUS CODE = SUCCESS 
END; ! IF RETPKT ORIGINATED AT CONTROLLER 
PUT_RETPKT (.RP_INDX); 
END; ! IF SEND WAS SUCCESSFUL 


END; ! ROUTINE UNIT_INIT 


-SBTTL UNIT.INIT INITIALIZATION SUBTEST ROUTINES 
0000006 UNIT. INIT: 
JSR R1,SSAVE2 


0000006 CCTLR =-(SP) 
0000006 PC, GET ENV 
SP) 
000104 MOV Hy -(SP) 
0000006 
0000006 0000146 msce. gENV#14 (RO) 
000011 0000206 #11 (ATs 0(RO) 
000001 0000446 a “ASCP. FEE eceRGS 


: MLINDEX,* 
0000006 PC’ SEND 





000100 


BE EEEEEEEEEE 
ROEKONAVOR 


: 
$ 


CZRCDAO RC25 DISK EXERCISER 
INITIALIZATION SUBTEST ROUTINES 


ses 


eesgces 


ooo 
bd sD 
Fa 
CONNNYINO 
: 
a 


010002 
126227 000003 000003 


012700 000004 
116201 000002 
042701 177417 
020127 000100 
001006 

012700 000002 
104455 

000017 

0000006 

012716 0000006 
010046 

004737 0000006 
pperes 


000506 

116237 000016 0000006 

042737 177740 0000006 
000016 


0000006 

AS 44 3 000002 0000006 
010100 

oot 

000446 

Baa Ss 020000 000022 
OTe 0000006 

063700 0000006 


1$: 


2$: 


3$: 


4$: 


G 3 


11-Jul-1983 08: 244:52 
B-Jul-19835 17:43:57 
RO 

1$ 

R1, (SP) 

PC; PUT.ENV 


PC WAIT 
PC,OUT.10DQ 
RO,RP. INDX 
RO, (SP) 


RO, 

3(R2) #3 

3$ 

#4,R 

2¢ a) R1 

#177617,R1 
#100" 

#2,R0 

55 

17 

EGD.15 

EMS.15 

ACCTLR, (SP) 

RO,-(SP) 

PC-DROP.CTLR 

(SP P)+ 

16¢ Ninn ST. CODE 

740, st. CODE 


R 
#174000,R0 
RO, - CODE 
LSLUN, 
ST.CODE 

4$ 

55 

20 

EGD. 16 
EMS.16 
#2,DUR(R1) 
R1,RO 

6$ 

$0000.22 (Re) 
CUOFF ,RO 


R 
CST.ADDR,RO 


VAX-11 Bliss-16 V3-555 age 
_DUA2: CDOUCETTE. CZRCDICZRCD3.SRC33 (14 


M.INDEX,* 


RP. INDX,* 


RP.ADDR,* 


; *,REASON 


* ,REASON 


REASON, * 


2808 
2805 
2807 


2808 
2809 


2803 
2815 


2816 


H 3 


SEQ 0e% 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11=Jul=1 : VAX-11 Bliss=16 V3-555 coer 
v01.0 INITIALIZATION SUBTEST ROUTINES 8-Jul=1 : DUA2: CDOUCETIE.CZRCDICZRCD3.SRC33 (14 


xz 
c=] 
~ 


905719 
100012 

104485 

000021 


=—M2BO-ue 
ee WO 


0000006 

112761 000002 0000006 
010100 

104451 


000421 
016237 000050 000616" 
00 013700 0000006 

006300 


Bes MOUND SMMouus 


7 


a ae 
FRO 


0000006 ADD CST.ADDR RO 
020000 

000001 0000006 

0000006 


000005 
0000006 6$: MOV RP. INDX 
0000006 PC.PUT.RETPKT 


5726 (SP)+ 
022626 7$: MP (SP)+, (SP)+ 
000207 PC 


z Routine Size: 149 words, Routine Base: SCODES + 3122 
: Maximum stack depth per invocation: 8 words 





CZRCD3 
v01.0 
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SEQ 0240 
CZRCDAO RC25 DISK EXERCISER 11=Jul=1983 08:44:52 VAX-11 Bliss-16 V3-555 Pa 
INITIALIZATION SUBTEST ROUTINES B-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDIJCZRCD3.SRC;3 (15 
ROUTINE ACCESS : NOVALUE = 
'¢ 
i THIS ROUTINE IS CALLED BY INIT TEST TO VERIFY THAT THE CURRENT PLATTER 
i CAN BE ACCESSED. THIS OBJECTIVE IS ACCOMPLISHED BY FORMATTING AN 
i SENDING ONE OR T CP ACCESS cORMANDS TO THE PLATTER, AND CHECKING 
; THE STATUS FIELD OF THE RESPONSE MESSAGE(S). 
i IMPLICIT INPUTS: 
i CCTLR = CURRENT CONTROLLER NUMBER 
i EBLAT = CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER) 
: LS$LUN = CURRENT (DRS) UNIT NUMBER 
BEGIN 
LOCAL 
M_INDEX : WORD, 
RESULT : WORD. 
bass: WORD; 
RESULT = FAILURE: ! GUILTY UNTIL PROVEN INNOCENT 
ST CODE = use CODE = 0; i STATUS CODE AND SUB- 
LBN = SIZE y -1) AND %0°77777") = 1; i START WITH LAST LBN ON TOP SURFACE 
PASS s i LOOP PASS COUNT 
0 i LOOP STARTS HERE 
BEGIN 
M_INDEX = GET_ENV (.CCTLR) ' GET AN MSCP ENVELOPE 
MSCP_ENV C.M_INDEX, PL ADDR) = .CPLAT; i SET PLATTER ADDR (MSCP UNIT NUMBER) 
MSCP-ENV C.M_INDEX, OPCODE) = i ACCESS OPCODE 
MSCP~ENV LC. mM INDEX, BC_LO) = BLK “Size: i BYTE COUNT (1 BLOCK) 
MSCP- ENV C.M LBA_LJ = .LBN; ' LOGICAL BLOCK NUMBER 
IF SEND (.M MINDEX) EQLU” FAILURE ATIENPT TO SEND; IF CTLR NOT ONLINE 
BEGIN ; 
PUT_ENV_(.M_INDEX); ' RETURN ENVELOPE TO POOL 
PASS = 2; i NO MORE TRIES 
END 
ELSE ' IF SEND WAS SUCCESSFUL 
BEGIN 
WAIT (; ' WAIT FOR RESPONSE 
RP_INDX = OUT_I 00; i GET RETPKT (RESPONSE) INDEX 
RP~ADDR = RET 1PLS RP_INDX * RP_LEN * 2); i CALCULATE RETPKT ADDRESS 
LF ARP ADDR CCONIDI FOLO CID_DRIVER If he CAME FROM "DRIVER" 
PASS = 2 i NO MORE TRIES 
ELSE i OTHERWISE = CHECK OUT RESPONSE 
BEGIN 
ST_CODE = RP ADDR CSTSCOD]; ! GET STATUS CODE FROM PACKET 
SB°CODE = .RP~ADDR CSUBCOD); i GET SUB-CODE FROM PACKET 
1F~.ST_CODE RFOLD S$T_SUC i JF STATUS CODE INDICATES SUCCESS 


i 3 


age 38 





J 3 


SEQ 0241 
CZRCO3 DAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss-16 V3-555 age 57 
1.0 IALIZATION SUBTEST ROUTINES B-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (15 


THEN ! THEN 
BEGIN 


RESULT = SUCCESS; 
PASS = 2; ! NO NEED TO TRY AGAIN 


END; 
END; ! IF RETPKT ORIGINATED AT CONTROLLER 
PUT_RETPKT (.RP_INDX); 
END; ! IF SEND WAS SUCCESSFUL 


LBN = .LBN + 7; : t+ TO FIRST LBN OF BOTTOM SURFACE 
PASS = .PASS + 1; ! SECOND PASS 
END ! END OF PASS LOOP 
UNTIL .PASS GEQU 3; 
IF .RESULT EQLU FAILURE 
THEN 
BEGIN 
SETPRI (PRIOS); ! DELAY POSSIBLE ERROR LOG MESSAGE 
ERRDF (18, EGD_18, EMS_18); ! “ACCESS FAILED" 
Br Teal (PR100); ! RESTORE PROCESSOR PRIORITY 
DUR ce LSLUND. = DU_INIT; ! SET REASON TO DROP UNIT 
DODU (.LSLUN); ! DROP UNIT 
END; ! IF ACCESS FAILED 


! ROUTINE ACCESS 


ACCESS INITIALIZATION SUBTEST ROUTINES 
R1,$SAVE5 


ACCESS: JSR : 
CL + RESULT 


USIZE.RO 
= 


3 * ,.LBN 
#160000,R3 : *,LBN 


: LBN 
#1,R1 : #, PASS 
CCTLR,-(SP) : 
PC,GET.ENV 
: *,M. INDEX 
R4, (SP) : M.INDEX,* 
Riba. =(SP) 


PC ,BLSMUL 
0000006 0000146 MO CPLAT, nSCP. ENV+14(RO) 
000020 0000206 #20.MSCP.ENV+20(RO) 
001000 0000246 MOV #1000,M astee EN NV+24 (RO) 
0000446 a5. MSCP.ENV+44 (RO) 








: Routine Size: 
+ Maximum stack depth per invocation: 10 words 


3 rt m RC25 DISK EXERCISER 


0000006 


0000006 2$: 


00000 
000003 000003 


000016 0000006 
7 177740 0000006 
000016 


174000 
0000006 
0000006 
000001 
000002 3$: 
0000006 4$: 
0000006 
5$: 


000003 


000240 


0000006 
000002 0000006 


6$: 


120 words, Routine Base: 


TIALIZATION SUBTEST ROUTINES 


kK 3 


11-Jul-1983 08: 
8-Jul-1983 17: 


R4, (SP) 
PC,SEND 
RO 


PC ,BLSMUL 
#RETPKT RO 
RO,RP.ADDR 
3(RO) ,#3 


16(RO) ,ST.CODE 
#177740, ST. CODE 
(RO) .R5 


#174000, = 
R5.SB 

ST. cobE 

4$ 

#1,R2 


#2,R1 
RP. ao. (SP) 
Osane PUT.RETPKT 


R 
gaa 


e 


LSLUN,RO 
oo eDUR (RO) 


PC 


SCODES + 3574 


VAX-11 Bliss-16 V3-555 
.DUA2: CDOUCETTE .CZRCDICZRCD 


3 M.INDEX,* 


M.INDEX,* 
*,PASS 


RP. INDX,* 


* ,RESULT 
* ,PASS 


LBN 
PASS 
PASS ,* 
RESULT 


Pa 
3.SRC33 5) 


2878 


29 
2844 


L 3 


aay ~ 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-17 : VAX=11 Bliss=16 V3-555 cog? 
v01.0 DM EXERCISER ROUTINES 8-Juc=1 : VaNedt BLisB—16 VECSEE ys op SRC33 (16 


ZSBTTL "DM EXERCISER ROUTINES' 
ROUTINE DM_EXER : NOVALUE = 


'4 


59 


THIS ROUTINE in os THE i Ape lh ly, OF THE DM EXERCISER. THE 
DM EXERCISER IS A SUBTEST THE HOST EXERCISER. ITS BASIC PURPOSE IS 
TO SUPERVISE THE OPERATION. OF THE FRONT PANEL TEST WHICH EXECUTES IN 

THE DM (DIAGNOSTIC MACHINE). 


THE HOST INITIATES THE FRONT PANEL TEST BY DOWN-LINE LOADING THE CROM 
PRIMER PROGRAM FROM DM RAM HAS THE JOB OF LOADING TH 


O IT. WHEN I Ss 

THE DM EXERCSER / FRONT PANEL TE 
BLOCK OF MEMORY HOLDS THE UNIT NUMBERS OF DI ETO BE 
DM-EXERCISED, AS WELL AS UNIT STATISTICS (LOADED BY THE FRONT PANEL 
TEST AND READ BY THE HOST). 


THIS ROUTINE DISPATCHES PROCESSING TO OTHER ROUTINES ON A partes 
BASIS UNTIL ALL UNITS HAVE COMPLETED THE REQUIRED NUMBER OF BYTES 
TRANSFERRED. THESE OTHER ROUTINES INCLUDE THE PROCESSING OF DUP END 
MESSAGES (DM_RETPKT), UPDATING HOST STATISTICS FROM DM_COMM (DM_TALLY), 
AND MAINTAINING COMMAND TIMERS (DRV_TIMCHK). 


BEGIN 
Yl MANUAL ! IF - hres 


N : 
PRINTF (MSG_06); ! "DM EXERCISER SUBTEST START’ 
OM_INIT (); ! INIT DM_EXER DATA, SEND CROM PRIMER 


8] ! “EXECUTIVE’’ PROCESSING LOOP 
BEGIN 


BREAK; ' BREAK IN CASE USER TYPED <CTRL=C> 
DM_RETPKT (); i PROCESS ANY DUP END MESSAGES OR DRIVER’ ERRORS 
IF~.T_FLAG EQLU TRUE i IF ONE SECOND HAS ELAPSED 
HEN i THEN 
BEGIN 
INCR, CTLR FROM 0 TO (.CTLR_CNT = 1) DO ! FOR EACH CONFIGURED CONTROLLER 
SET CPAR (.CTLR) ! SET UP CONTROLLER-RELATED DATA ITEMS 
F %(.CST_ADDR [STATE] EQLU ONLINE) AND i IF CONTROLLER IS ON AND 
uo STADDR CU_CNTJ NEQU 0)) i regent IS AT LEAST 1 UNIT UNDER TEST 
BEGIN , 
IF DM act © ' tence GAINED TO DM_COMM AREA 


DM_TALLY (); i ADD DM_COMM STATS TO HOST TOTALS 
DM_TIME (); : CHECK FPT SANITY TIMER FOR CONTROLLER 


END; ! IF CTLR IS ONLINE AND AT LEAST ONE UNIT 
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CZRCD3 
v01.0 


TRTETETE IE IR TRIE TEL 
SSss 
~ 


000072 0057 
000076 10001 
ih 


SSSSSeSSeeseess 
SESRMESNSRAERS 
$ 


000 
103330 
000207 


#5 
wv 
No 


; Routine Size: 


CZRCDAO RC25 D 
DM EXERCISER 


END: 
. 


SK EXERCISER 


ROUT INES 


DRV_TIMCHK (); 


END 
UNTIL DM_QUIT (); 


0009006 


0000006 
000001 


000000v 
000000V 
0000006 000001 
0000006 
0000006 
0000006 
000002 
000005 
000000v 
000000v 
000000v 


000000v 
000000v 


54 words, 


DM. EXER: 


3$: 


4$: 
5$: 


6$: 


7$: 


Rout ine_Base: 
: Max imum stack depth per invocation: 7 words 


11-Jul-1983 08: 
8-Jul-1983 1 


1$ 

#SG.06 

#1,-(SP) 
P-RO 


=(SP) 


(SP)+,(SP)+ 
PC,DM. INIT 


ope we ae 


-FLAG, 


CTLR.CNT,R2 
R1 


6$ 

R1,-(SP) 

PC.SET.CPAR 
CST.ADDR,RO 

2(RO) 

5$ 

5(RO) 

PC,DM.ACC 

RO 

4$ 

PC.DM.TALLY 
CDM. TIME 

R1 

R1,R2 

PC,,DRV. TIMCHK 

PC,DM.QUIT 


2s 
PC 


SCODES + 4154 


44: 
43:5 


CONTROLLER LOOP 
CHECK FOR COMMAND TIMEOUTS 
IF ONE SECOND HAS ELAPSED 


END OF ‘‘EXECUTIVE’* LOOP 
UNTIL ALL UNITS DONE 


ROUTINE DM_EXER 


52 
57 


-SBTTL OM.EXER DM EXERCISER ROUTINES 
R1,$SAVE2 


SEQ cess 


VAX-11 Bliss=-16 V3-555 
_DUA2: CDOUCETTE .CZRCDICZRCDS.SRC; 


SP, 


> CTLR 


CTLR,* 


CTLR 
CTLR,* 


3 ay 





CZRCD3 
v01.0 
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11*Jul-1 


CZRCDAO RC25 DISK EXERCISER 9 
8-Jul-19 


DM EXERCISER ROUTINES 
ROUTINE DM_INIT : NOVALUE = 


1+ 


THIS ROUTINE IS CALLED BY DM_EXER WHEN THE DM EXERCI 
TO START THE FRONT PANEL TEST EXECUTING IN THE DM. 


PANEL 


BEGIN 


LOCAL 
MX : WORD; 


INCR CTLR FROM 0 TO (.CTLR_CNT = 1) DO 
BEGIN 
SET_CPAR ( ! SE 
IF <CST PADDR Stare? EQLU ONLINE i TF 
THEN it 
BEGIN 
INCR oe oaks 8 TO ¢ DMC_ LEN * 2) = 2) BY 2 DO 


( 
DMC_ADD -COUNT) = 0; 
INCR_OFFSEI FROM 0 TO 3 DO 


IF .CST_ADDR C.OFFSET + OF_UN, P_STAT] EQLU ONLINE 


eo 
VAX-11 Bliss=16 V3=-555 page 61 
DUA2: CDOUCETTE.CZRCDICZRCD3.SRC33 (17 


SER_IS FIRST 


STARTED. ITS PURPOSE IS (A) TO INITIALIZE DM EXERCISER DATA, AND (B) 


THE wee soe Eee DATA gh tt gl OCCURS IN THE COMMUNICATION 
BETWEEN THE HOST AND THE FRONT 


TEST. PLATTER 


AREA (DM_COMM) BET 
ADDRESSES TO BE EXERCISED UNDER THE FPT ARE LOADED INTO THIS AREA, 
AND ALL STATISTICS AND ACCESS WORDS ARE CLEARED TO ZERO. 


! MSCP ENVELOPE INDEX 
! FOR EACH CONFIGURED CONTROLLER 


T UP Cort gta ee PARAMETERS 


en IS ONLI 


! CLEAR CTLR*S DM_COMM STATS 
! FOR EACH UNIT UNDER CTLR 


! IF UNIT IS ONLINE 
THEN LOAD eaten ADDRESS 


HEN : 
DMC_ADDR C.OFFSET, ALLBIT] = .CST_ADDR C.OFFSET + OF UN, P_ ADDR] 


DMC_ADDR C.OFFSET, ALLBIT) = - 
END; 


IF .ENTRY_REASON NEQU NEW_PASS . #F 
THE ! THE 


N 
BEGIN 


DM_TIMR C.CTLRI = 0; 
MX”= GET_ENV (. CTLR): | ' GE 
NV"C.MX, CONN CID_DUP: 
opcope) op _ESP; 
DBC - CROMP (0): 
DBUF” 5 = CROM 


! OTRERWISE 
! DO NOT EXERCISE 


! END UNIT LOOP 
pes RESTART, CONT, OR PWR FAIL 


! INIT FPT SANITY TIMER 


T AN_MSCP ENVELOPE 
ION ID (DUP) 
Te ttt SUPPLIED PROGRAM 
ESC OF one PRIMER 


! BUFF D 
MSCP-ENV [.MX, OBUF-0] = ROMP’ + .CROMP 033, . arene’ BUF F 


IF SEND (.MX) EQLU FAILURE 


E 
ATTEMPT TO SEND. IF FAILURE 





“a 








B 4 


Sk EXERCISER 11-Jul-1 
OUTINES 8-Jul-1 


THEN THEN 
PUT_ENV (.MX); RETURN ENVELOPE TO POOL 


END; ! IF START, RESTART, CONT, OR PWR FAIL 
END; ! END = IF CTLR IS ONLINE 
END; ! END CONTROLLER LOOP 


IF ((.ENTRY_REASON NEQU CONT) AND ! IF START, RESTART, OR NEW PASS 
(.ENTRY_REASON NEQU PWR_FAIL)) 


HEN ! THEN 
INCR COUNT FROM 0_TO ((MAX_UNITS * TALLY_LEN) = 1) DO ! CLEAR ALL STATS 
TALLY C.COUNT) = 0; 


T_FLAG = FALSE; ! CLEAR ONE SECOND TIMING FLAG 
END; ! ROUTINE DM_INIT 


CZRCDS CZRCDAO RC25 DI 
ER R 


SEQ 0246 
83 98:64:36 VAX=11 Bliss-16 V3=555 
v01.0 DM EXERCIS 83 17:43:57 


Foge 2 
:4 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (17 


9 
9 
: 
: 


-SBTTL OM.INIT DM EXERCISER ROUTINES 
0000006 DM. INIT: JSR 1,$SAVE5 
0000006 MO SILA. Cat LR 


1$: R3,~(SP) 
0000006 PC-SET.CPAR 
0000006 CST.ADDR,RO 
000002 ST (RO) 
000010 ; *, COUNT 
: : COUNT,* 
0000006 
00 000002 : *, COUNT 
000062 MP RO : COUNT,* 
: OFFSET 
; OFFSET,* 
0000006 DMC.ADDR,R2 
MO R1,RO0 ; OFFSET,* 
0000006 CST.ADDR,RO 
020000 000006 #20000 ,6{R0) 
000006 6(RO), (R2) 
000001 cRe) 
177777 : #-1,,(R2) 
000003 : R1,43 
0000006 000005 ENTRY. REASON,#5 


R3,RO 
RO 


Seseeseessess 
RNSSSENSRSAAR 








SEQ 0247 
VAX-11 Bliss=-16 V3-555 age 
DUA2: CDOUCETTE..CZRCDICZRCD3.SRC;3 (17 


CZRCD3 
v01.0 


CZRCDAO RC25 a 
om EXERCISER R 


000620° 
0000006 


& 


So 
= 
Sao 

“Ww 
_ 
NOOO 


; CTLR,* 


3 *,MX 
3; MX,* 


So 


ooo 
= 
NOOuw 


000104 
000: 


WwW 


BLSMUL 
me -ASCP. ENV+7(RO) 
#2, ENV+20(RO) 
Gre ECP ie Tt 
#CROMP ,MSCP.ENV+3C (RO) ; 
reed ENVS 24 (RO) SSCP. ENV+44(RO) ; 
ee MSCP.ENV+44 (RO) 


ooo-— 
pa pe eer rr 


60 001716° 000044G 





0000006 


7 0000006 


0000006 000003 
0000006 000004 


000002 
001376 


0000006 
7 


: Routine Size: 
: Maximum stack depth per invocation: 9 words 


116 words, 


9$: 


10$: 


Routine Base: 


(SPS 
PC; SEND 
RO” 
&$ 
RS, ( 
PC, PT. EXV 
(SP) 
($P)+ 
R3 
R3,R4 
ENTRY.REASON, #3 
ENTRY.REASON, #4 
10$ 


RO 

TALLY (RO) 
#2,R 

-: Sate 
T.FLAG 
PC 


SCODES + 4330 


; MX,* 


; CTLR 
; CTLR,* 











dD 4 


SEQ a ~ 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 0 :52 VAX-11 Bliss-16 V3-555 Page 64 
v01.0 DM EXERCISER ROUTINES 8-Jul-1983 1 257 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (18 
; 3078 ROUTINE DM_QUIT = 
3080 
Py + 
; 3081 ! THIS ROUTINE IS Yr af Ly DM Apathy MS bk (DM_EXER) TO 
3 3082 |! DETERMINE WHETHER OR NOT DM EXERCISER SUBTEST SHOULD 2 oF. leat 
3 3083 =! ITS PURPOSE IS TO OR AMINE Whe STATUS ar THE CURRENT PAS STING 
3 3084 ! VECTOR (CPT). IF EACH UNIT'S VALUE IN THIS LE ‘NO’ TEADICATING 
3 3085 ! THAT CURRENT PASS Rit ON THE UNIT IS COMPLETE), THEN THIS ROUTINE 
; 3086 | RETURNS A VALUE OF "TRUE’’ TO ITS CALLER. IF ANY ONE UNIT HAS A VALUE 
3 tet OF ‘‘YES’*, THEN Phise * 1S RETURNED. 
3 3089 ! IMPLICIT ty 
3 Soot : LSUNIT = NUMBER OF UNITS CONFIGURED FOR TEST 
3 3092 
; ak BEGIN 
3 3095 INCR UNIT FROM 0 TO (.LSUNIT = 1) DO ' FOR EACH CONFIGURED UNIT 
4 3096 IF .CPT C.UNITJ EQLU YES ' IF UNIT STILL UNDER TEST 
3 3097 THEN ' THEN 
3 3098 RETURN FALSE; ' TEST NOT FINISHED 
3 $100 RETURN TRUE; ' ALL UNITS DONE 
3 3101 END; ! ROUTINE DM_QUIT 
-SBTTL DM.QUIT DM EXERCISER ROUTINES 
000000 005000 DM.QUIT:CLR RO 3; UNIT 3095 
000002 000405 BR 2$ 
000004 126027 000000G 000001 1$: CMPB CPT(RO) #1 3 *(UNIT),* 3096 
000012 001407 BEQ 3$ 3 3098 
000014 005200 INC RO 3: UNIT 3095 
000016 020037 000000G 2$: CMP RO,LSUNIT 3 UNIT,* 
000022 002770 BLT 1$ 
000024 012700 000001 MOV #1,R0 8 3093 
000030 000207 RTS PC 
000032 005000 3$: CLR RO 3 3078 
000034 000207 RTS PC 
3; Routine Size: 15 words, Routine Base: $CODE$ + 4700 


* Maximum stack depth per invocation: 0 words 











E 4 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 0 
v01.0 DM EXERCISER ROUTINES 8-Jul-1983 1 


ROUTINE DM_RETPKT : NOVALUE = 
14 
: THIS ROUTINE IS CALLED BY DM EXER TO CHECK FOR AND PROCESS ANY RETURN 
BEEN ‘'SENT™ BY THE ‘DRIVER’ PORTION OF THE PROGRAM. 

THE I INK BETWEEN THE TWO PROGRAM 
PARTS; IT HOLDS INDECES OF RETURN PACKETS WHICH REQUIRE PROCESSING. 
at DM EXERCISER SUBTEST, RETURN PACKETS ORIGINATE FROM TWO 

"1. DUP = DESCRIBING AN oe a host RECEIVED FROM THE RC25 IN 


OMMAND 
2. THE PROGRAM ‘DRIVER’ = DESCRIBING A CONTROLLER ERROR OR 
COMMAND TIMEOUT. 


SEQ 0249 
8:44:52 VAX-11 Bliss-16 V3-555 page 65 
7:43:57 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (19 


oo 
wr 


SISRE 


BEGIN 
a NEQU .I0DQ_OUT DO ! DO UNTIL 1/0 DONE QUEUE IS EMPTY 


ee ec ee ee ed ed ed ee ed ed ed ed ed ed ed = = ed 


RP_'NDX = OUT 10D0 (); ! GET INDEX OF NEXT RETPKT AND ADVANCE OUT POINTER 
RP“ADDR = RETPKT + (.RP_INDX * RP_LEN * 2); ' CALCULATE RETPKT ADDRESS 
SET_CPAR (.RP_ADDR CCTLRI); i SET UP CURRENT CONTROLLER PARAMETERS 
LSLON = .CST_ADDR COF UN, P UNIT: i GET UNIT NUMBER OF FIRST UNIT 
IF .RP_ADDR TCONID) EGLUCID_DRIVER i IF RETPKT 1S FROM PROGRAM ‘DRIVER"’ 
THE i THEN 
BEGIN 
IF <RP_ADDR CMESTYP] EQLU MT_TIMEOUT — {JF COMMAND TIMEOUT 
ERRDF (15, EGD_15, EMS_15); i "MESSAGE RESPONSE TIMEOUT’ 
DROP_CTLR_(.CCTLR, DU FATAL); i DROP CONTROLLER'S UNITS 
CST_ADDR CSTATE) = OFFLINE; i MARK CONTROLLER OFFLINE 
END 
E 
BEGIN 
IF <RP_ADDR CCONIDI EQLU C1D_DUP t IF RETPKT IS FROM DUP 
DM_MSG (); i PROCESS THE END MESSAGE 
END; 
PUT_RETPKT (.RP_INDX); ! RETURN PACKET TO POOL 
END; ! END = UNTIL 1/0 DONE QUEUE IS EMPTY 


END; ! ROUTINE DM_RETPKT 


BBUBVVVRUNLSSaNanrwv=os 


WAIN PONMONONPENONININID 2 2 OO OO Oe Oe 


WWW WWWAWNAWANAWAAAWAANAAANAAANA 
w= 


2a 
WWW 
RAR 


at a 


HSHRERHKLHKHLESWw 


! OTHERWISE (RETPKT NOT FROM ‘DRIVER’') 


WIWNWAWNANNWNANINNIAWNAWW 
AnSW—O COON 


— ss HY Ss SS 


vi“ 
—Ooon 


WWW 


-SBTTL DM.RETPKT DM EXERCISER ROUTINES 
000000 010146 inte '™ 


R1,-(SP) 
000002 023737 000000G 0000006 : 10DQ.1N,10DQ.0UT 
000010 001506 5$ 











F 4 


SEQ a + 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 99:4 VAX-11 Bliss=-16 V3-555 Page 
v01.0 DM EXERCISER ROUTINES 8-Jul-1983 17: DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (19 


py -ey' ste ; 3123 
; RP.INDX,* 3124 


177740 
0000006 
0000006 
000003 000003 


000002 
00 177417 
000100 


EMS.15 
CCTLR, (SP) 
#4,-(SP) 
PC,DROP.CTLR 
CST.ADDR,RO 
#100000, 2(RO) 
(SP)+ 


BR $ 
000003 000002 3$: 3(RO) #2 


000000v PC,DM.MSG 
0000006 4$: MO RP. INDX, (SP) 
0000006 PC. PUT.RETPKT 
ch (SP)+, (SP) + 
5$: MOV (SP)+,R1 
PC 


3; Routine Size: 77 words, Routine Base: S$CODE$S + 4736 
+ Maximum stack depth per invocation: 5 words 





G 4 


SEQ een 
CZRCO3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss=-16 V3-555 page 67 
v01.0 DM EXERCISER ROUTINES 8-Jul-1983 17:43:57 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (20 


ROUTINE DM_MSG : NOVALUE = 


+ 


THIS ROUTINE IS CALLED BY DM_RETPKT FOR ALL DUP END MESSAGES RECEIVED 
BY THE DM EXERCISER. 


THIS ROUTINE FIRST CHECKS THE STATUS CODE OF THE END ee IF IT 
INDICATES ANYTHING OTHER THAN apts COMPLETION OF THE C D, 
THEN A DEVICE-FATAL ERROR IS DECLARED FOR THE CONTROLLER, rs ALL its 
UNITS ARE DROPPED. IF THE STATUS CODE yey SUCCESS, T 

PROCESSING IS re enee ON THE ENDCODE (OPCODE OF THE ASSOCIA TED 
COMMAND). FOR THE “EXECUTE rt ee PROGRAM’ END oe a? THIS ROUTINE 
FORMATS AND SEN DS A "SEND DATA’ MESSAGE, PROVIDING THE FRONT PANEL TEST 
WITH THE HOST ADDRESS OF THE CURRENT CONTROLLER'S DM EXERCISER 
COMMUNICATION BLOCK (DM_COMM). 


ssntresscsal™ lyttts 
P_ADDR = ADDRESS OF THE CURRENT RETURN PACKET 
eCTUR = CURRENT CONTROLLER NUMBER 
DMC_ADDR = ADDRESS OF CURRENT CONTROLLER*S DM_COMM AREA 


Oe ee ee eh ae ed ed ed ed ad aed 
AAAAAAMMANMNMNIY 


Co oo NNN NOOO 


oon 


! MSCP ENVELOPE INDEX 
DUP _OPCODE 


Fo a ts —) 9 4 SH 


IF (ST_CODE = .RP_ADDR CSTATUSJ) NEQU ST_SUC ! IF STATUS CODE NOT SUCCESS 
a ! THEN 


ERRDF (21, EGD_21, EMS 21); ! ‘DUP COMMAND FAILED*’ 
DROP_CTLR (. CCTLR, DU_ FATAL); ! DROP CONTROLLER'S UNITS 


END 
ELSE ! OTHERWISE = SUCCESS 
BEGIN 


WWWWWWAWAWNWAWAWANAAANAWANAAANWAAAAAAANAAA 


ae a a et 


RP ADDR CENDCOD] AND OP_MSK; ! GET OPCODE 
SELEC TONED -Bup 


KARASLE 


COP_ESP] : BEGIN 
MX = GET_ENV (. CCTLRD 
ENV-C.MX, CONNID 
MX, opcoD DE 
“MX. D 
MSCP~ENV C.MX, Sohre 0 
IF SEND (.MX) cory FA 
PUT_ENV (.MX); 
END; 


IF “EXECUTE SUPPLIED PROGRAM’ 
GET AN_MSCP ENVELOPE 
CONNECTION ID S ie 

Ore cou SEND DAT 


BY OUN 
ADDR OF ADDR OF CTLR°S DM_COMM AREA 
ATTEMPT TO SEND. IF FAILURE 


THEN 
RETURN ENVELOPE TO POOL 
END = IF “EXECUTE SUPPLIED PROGRAM’ 


kel ed ed ed ed ed ed ed 
oO 
N 


S38e 


CID_DUP; 
OP_SND; 
E 


mrn— 
So 
= 


DMC_ADDR; 


MUMIA AAS 


1D) = 
Jez 
LO) = 
Jz 
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CZRCO3 
v01.0 


CZRCDAO RC25 DISK EXERCISER 
DM EXERCISER ROUTINES 


COP_SND] : DM_TIMR C.CCTLR] = TO_DM; 


TES; 
END; 
END; 


0000006 
000016 0000006 


11 
042 
00 
004 
01 
01 
0 


338 


SHISPREENSRORKSAS TSS 
ae 
“ 


ooo 
par rar Sor SY 


sss 


22S 
So 

= 

o-— 


SeSs8Sses3 
Sa et 


par Ser Per Per Perper 
ANOW 


0000006 
000550 000620° 


seeseeeee 


~ 
=o 
on 


4$: 


~ 
ry 
~ 


3 Routine Size: 70 words, Routine Base: 
3: Maximum stack depth per invocation: 4 words 


DM.MSG: MO 
MO 


H 4 


11-Jul-1983 98:64:3 
B-Jul-1983 17:43:5 


! JF ‘‘SEND DATA’, START FPT SANITY TIMER 


SEQ 0252 
VAX-11 Bliss=-16 V3-555 P 


! END = IF STATUS CODE = SUCCESS 
! ROUTINE DM_MSG 


7 i pt EXERCISER ROUTINES 


RP.ADDR,RO 
16(RO) ,ST.CODE 
1$ 

55 

25 

EGD.21 

EMS.21 
CCTLR,~(SP) 
#4,-(SP) 
PC,DROP.CTLR 


PC ,BLSMUL 
#2,MSCP.ENV+7(RO) 
#4 ,MSCP.ENV+20(RO) 
#2 ,MSCP.ENV+24 (RO) 
#DMC.ADDR ,MSCP.ENV+30(RO) 
R1, (SP) 

PC SEND 

RO 

2$ 

R1, (SP) 
PC,PUT.ENV 
(SP)+,(SP)+ 

4$ 

RO,#4 

CETLP AO 

#550,DM. TIMR(RO) 
(SP)+,R1 


; DUP.OP,* 


SCODES + 5170 


age 68 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (20 








I 4 


SEQ 0253 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 99:64:36 VAX=11 Bliss-16 V3-555 age 
v01.0 DM EXERCISER ROUTINES B-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (21 


ROUTINE DM_ACC = 
'¢ 


C_ADDR = ADDRESS OF CURRENT CONTROLLER'S DM_COMM AREA 
OUTPUTS: 


"*SUCCESS'’ = ACCESS TO DM_COMM IS PERMITTED 


v 

' 

‘ 

' 

‘ 

' 

IMPLICIT INPUTS: 
DMC 

i) 

“FAILURE = ACCESS TO DM_COMM IS DENIED 


BEGIN 


CAL 
RESULT : WORD; ' RESULT OF ACCESS REQUEST 
RESULT = SUCCESS; ! ASSUME ACCESS WILL BE GAINED 
DMC_ADDR CHOST ACC) = ALL_ONES; ! SET HOST ACCESS WORD 
IF [DMC_ADDR CFPT_ACC] NEGU 0 ' IF FPT HAS ACCESS NOW 
sana SOM ' THEN 


DMC_ADDR CHOST ACC] = 0; ! WITHDRAW ACCESS REQUEST 
RESULT = FAILURE; ' CHANGE RESULT TO FAILURE 


END; 
RETURN .RESULT; 


! ROUTINE DM_ACC 


.SBTTL DM.ACC DM EXERCISER ROUTINES 
JSR R1,$SAVE2 : 
: ; *, RESULT 
0000006 DMC.ADDR,R1 : 
177777 000062 #-1,62(R1) 


MOV R1,R 
000060 60(RO) 
000062 62(R1) ; 
Re ; RESULT 
1$: MOV Re RO ; RESULT,* 


; DMC.ADDR,* 


: Routine Size: 18 words, Routine Base: SCODE$ + 5404 
+ Maximum stack depth per invocation: 4 words 





J 4 


SEQ 0254 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:5 VAX-11 Bliss=16 V3-555 70 
DM EXERCISER ROUTINES 8-Jul-1983 930338 DUA2: CDOUCETTE .CZRCDIJCZRCD3.SRC;3 (238° 


ROUTINE DM_TALLY : NOVALUE = 


+ 


THIS ROUTINE IS CALLED, FROM DM_EXER AFTER ACCESS HAS BEEN GAINED TO 
E oRM 2 HT 5 Punrose t TO EXTRACT THE 
PANEL TEST (EXECUTING IN 


S, THE NUMBER OF HARD ERRORS AND THE NUMBER 
AR FOR EACH UNIT IS CHECKED AGAINST THE 
SW LE. IF THE HARD ERROR LIMIT HAS BEEN 
THEN THE UNIT IS DROPPE ALL TESTING. IF THE TRANSFER 
LIMIT HAS BEEN REACHED, THEN THE UNIT IS SIMPLY REMOVED FROM THE 
LEARENT PASS. 


IMPLICIT INPUTS: 
DMC_ADDR = ADDRESS OF THE CURRENT CONTROLLER'S DM_COMM AREA 


AL 
ST_PTR, ! STATISTICS POINTER IN DM_COMM 
NBXFR : WORD; ! NUMBER OF BLOCKS TRANSFERRED 


T_PTR = .DMC_ADDR + 8; ! POINTS TO STATS FOR FIRST UNIT 
intR aOEFser FROM 0 TO 3 DO ! FOR EACH UNIT 


IF .DMC_ADDR C.OFFSET, 0, 16, 1] GEQ 0 ! IF UNIT IS BEING DM-EXERCISED 
THEN ! THEN 

BEGIN 

SET_UPAR (.OFFSET + OF _UN); ! SET UP UNIT-RELATED PARAMETERS 


UPD_IOC (T ADDR CSEEK_LOJ, ..ST_PTR); ! UPDATE ot OF SEEKS 
-ST_PTR = ! RESET STAT TO 0 
ST_ PTR = St. PTR + 2; ! ADVANCE DM_COMM POINTER 


NBXF ' NUMBER OF BLOCKS READ (1 BLOCK PER READ) 
UPD_ Toc a SIBDR REREAD LO], ..ST_PTR): ! UPDATE NO. OF R 

UPD” DMBC_¢ (T_ADDR CR_COJ, ..ST_ PIR): i UPDATE NO NO. OF BYTES READ, CHECK FOR OVERFLOW 
ST_PTR = * ST. PTR + 2; i ADVANCE OM. COMM POINTER 


NBXFR = _NOXER + ..ST_PTR ! ADD NUMBER OF BLOCKS WRITTEN (1 BLOCK PER WRITE) 
UPD_I0C (T_ADDR CWRIT— Loy. .-ST_PTR); | UPDATE NO. OF 

UPD_DN =DMBC_ (T_ADDR (BW_COJ, ..ST_PTR); =} UPDATE NO. OF BYTES WRITTEN, CHECK FOR OVERFLOW 
ST_ BIR = ST. PTR + 2; i ADVANCE DM_COMM POINTER 


T ADDR CER SFT] = .T_ADDR CER_SFT] + ..ST_PTR:  ! UPDATE NO. OF DM SOFT ERRORS 
.3T PTR = 0; ‘RESET STAT TO 0 
$T_PTR = .ST_PTR + 2; i ADVANCE DM_COMM POINTER 


HARD_ERR (..ST_PTR); ! UPDATE HRD ERR CNT + CHK FOR LIMIT 








K 4 


SEQ 0255 
CZRCD3 CZRCDAO RC25 DISK 11-Jul-1983 Se VAX-11 Bliss=16 V3-555 Page 1 
v01.0 DM EXERCISER R 8-Jul-1983 17:43:5 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (22 


! RESET STAT TO 0 
! ADVANCE DM_COMM POINTER 


IF _.NBXFR NEQU 0 ! IF A COMPLETE PASS HAS BEEN MADE 
THEN ! THEN 
BEGIN 
IF MANUAL ! IF ATTENDED 
! TH 


PRINTF (MSG_08, .NBXFR, .LSLUN, .CPLAT); ! ""XXXXX. BLOCKS TRANSFERRED ON UNIT XX. (PLATTER XX 
DM_TIMR C.CCTLRJ = TO_DM; ! RESET FPT SANITY TIMER 


END; 
XFR_CHK (); ! CHECK IF TRANSFER LIMIT REACHED 
END ! END = IF UNIT IS BEING DM-EXERCISED 
ELSE ! OTHERWISE 
ST_PTR = .ST_PTR + 10; ! ADVANCE DM_COMM POINTER TO NEXT BLOCK 
END; ! UNIT LOOP 
DMC_ADDR CHOST_ACC] = 0; ! TELL FPT THAT WE ARE LEAVING 


END; ! ROUTINE DM_TALLY 


3 


WA 
WAG 
AULSWN—OOo 


WAWNWAWAN 

WAWAWANWWNW 

RNONRIPIR tt ot to I 
MEW Oo OOnN 


~SBTTL DM.TALLY DM EXERCISER ROUTINES 
0000006 DM. TALLY: 
JSR R1,$SAVE3 


0000006 DMC .ADDR R53 
000010 #10,R3 


; OFFSET 
R1,R0 ; OFFSET,* 
DMC .ADDR ,RO 
(RO) 
4$ 
R1,~(SP) ; OFFSET,* 
#3, (SP) 
PC,SET.UPAR 
vege 


#10,(S 

(R35 ,=(SP) : ST.PTR,* 
PC,UPD.10C 
(R3)+ 


; ST.PTR 
; ST.PTR,NBXFR 


(R3) ,R2 
age al 


S 


NBansRse 
= 
bh 


RoR 
Suns 


REN RT ay SED 
NOOO 


000014 
000000v 


et 


; ST.PTR,* 


masts 


Wo 
ANVIWUNAOOnN 


; ST.PTR 
(R3) ,R2 ; ST.PTR,NOXFR 
0000006 T.ADDR, (SP) ; 


So 
— 
N 
a 





L 4 


SEQ 0256 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11=Jul=1 : VAX-11 Bliss-16 V3-555 page 
v01.0 DM EXERCISER ROUTINES 8-Jul-1 : DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (22 


#4, (SP) 
(R3) ,=(SP) : ST.PTR,* 


; ST.PTR,* 


: ST.PTR 
T-ADDR RO : 
(R3), 54 (RO) : ST.PTR,* 
(R3)+ : ST.PTR 
(R3), (SP) : $T.PTR,* 

7 0000006 PC,HARD.ERR 

(R3)+ : ST.PTR 
Re + NBXFR 


50 


2$ 
0000006 CPLAT, (SP) 
0000006 LS$LUN,<(SP) 
R2,-(SP) 
0000006 #MSG.08,-<SP) 
000004 #4 .=(SP) 


000010 #10,SP 
0000006 : CCTLR,RO 


R 
900550 000620° #550,DM. TIMR(RO) 
0000006 : PC, XFR. CHK 
#14,SP 
BR 5$ 
000012 : #12,R3 
000003 ’ R1,43 
0000006 DMC.ADDR,RO 
0 000062 62 (RO) 


; Routine Size: 104 words, Routine Base: $CODE$ + 5450 
: Maximum stack depth per invocation: 16 words 





CZRCDS 
v01.0 


Be Be Se Os Se Be Se Be Se Se Se Ge Se Fe Se Be Ge Se Se Ge FH Se SH Se Hs Be Ss Be Te Seteee 
W 
Ww 
wi 
oS 


; Routine Size: 


Mm 4 
SEQ a 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 09: 44:52 VAX-11 Bliss-16 V3-5 page 73 
DM EXERCISER ROUTINES 8-Jul-1983 17:45:57 _DUA2:CDOUCETTE. CaReDICZRCDS. SRC33 (23 


ROUTINE UPD_DMBC (ADDR, COUNT) : NOVALUE = 


'¢ 

: THIS ROUTINE IS CALLED FROM DM_TALLY TO UPDATE THE TOTAL NUMBER OF 
BYTES READ OR WRITTEN BY THE FRONT PANEL TEST (FPT) FOR THE CURRENT 
UNIT. IT IS ASSUMED THAT EACH READ r. WRITE Bagley PERFORMED BY THE 
FPT IS EXACTLY ONE BLOCK (512 BYTES) LONG. (A SiMPLE MULTIPLICATION 
ah * BLK_SIZE) IS NOT FEASIBLE BECAUSE "A 16-BIT OVERFLOW WOULD 


INPUTS: 
ADDR = TALLY ADDRESS OF THE LOW-ORDER oicee OF es | NUMBER OF 
BYTES READ OR WRITTEN FOR THE CURRENT UNIT 
COUNT = 4 NUMBER OF READ OR WRITE OPERATIONS PERFORMED BY THE 


BEGIN 
INCR I FROM 1 TO .COUNT DO 
BEGIN 


FOR EACH FPT 1/0 OPERATION 


eADDR = ..ADDR + BLK_SIZE; 
iF .-ADDR GEQU 50000~ 


THEN 
OVF_CHK (.ADDR); 


UPDATE TOTAL NO. OF BYTES (LOW ORDER) 
IF —_ ORDER VALUE IS A?PROACHING OVERFLOW 


THE 
REDUCE LOW ORDER WORD, UPDATE HIGH ORDER WORDS 


END; ! END = 1/0 OPERATION COUNT LOOP 

OVF_CHK (.ADDR); ! ONE MORE TIME 
END; ! ROUTINE UPD_DMBC 

.SBTTL UPD.DMBC DM EXERCISER ROUTINES 
0000006 UPD.DMBC: 

JSR R1, SSAVE? : 3334 
000012 MOV 12¢S > ADDR,* 3256 

CLR Re 31 3353 
001000 1$: ADD #1000, (R1) : 3356 
141520 CMP (R1) #141520 ; 3357 

MOV R1,-(SP) : 3359 
0000006 JSR PC, OVF.CHK 

TST (SP) + 3 

2$: INC R2 :1 3353 

000010 CMP R2,10(SP) ; 1,COUNT 

Boy is (SP) 3363 
0000006 JSR PC. OVF.CHK : 

TST (SP)+ : 3231 

RTS PC : 3334 
24 words, Routine Base: $CODE$ + 5770 


: Maximum stack depth per invocation: 5 words 


N 4 


SEQ aa ~ 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 + VAX-11 Bliss-16 V3-555 boge 
v01.0 DM EXERCISER ROUTINES 8-Jul-1983 17 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (24 


ROUTINE DM_TIME : NOVALUE = 


14 


THIS ROUTINE IS CALLED ONCE PER SECOND FOR ne hh eg yer 
BY DM EXERCISER waa Feat (DM_EXER). ITS PURPOSE IS TO MAINTAIN 

THE SANITY TIMER ON THE FRONT PANEL~TEST (FPT) WHICH IS EXECUTING IN 

THE DIAGNOSTIC MACHINE (DM). 


THE FPT IS EXPECTED TO PROVIDE THE HOST WITH A NEW SET OF tore y 
DM AT REGULAR_INTERVALS. EACH CONTROLLER HAS AN 


INPLICIT INPUTS: 
CCTLR = CURRENT CONTROLLER NUMBER 
CST_ADDR = ADDRESS OF CURRENT CONTROLLER*S CST 


BEGIN 
IF .DM_TIMR C.CCTLR] NEQU 0 ! IF TIMER IS ACTIVE 
THEN ! THEN 

BEGIN 


DM_TIMR C.CCTLR] = .DM_TIMR C.CCTLRJ - 1; ! DECREMENT 
IF OM. TIMR C.CCTLRI EGLU 0 ; c— HAS EXPIRED 


BEGIN 
! GET DS UNIT NUMBER OF FIRST PLATTER UNDER CONTROLLER 
! “DM EXERCISER TI MEOUT** 
! DROP ALL CONTROLLER'S UNITS 
! MARK CONTROLLER OFFLINE 


EN: 
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. 
o 
© 
° 
e 
eo 
. 
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e 


! ROUTINE DM_TIME 


.SBTTL DM.TIME DM EXERCISER ROUTINES 
DM. TIME :MOV R1,=(SP) 
MOV ccTLR, RO 

#DM. TIMR,RO 

(RO) 

1$ 

(RO) 
0000006 CST.ADDR,RO 
000006 6(RO) ,R1 


R 
177740 #177740,R1 
0000006 R1,L$UNIT 





CZRCD3 


06 
000110 


; Routine Size: 
; Maximum stack 


CZRCDAO RC25 DISK EXERCISER 
DM EXERCISER ROUTINES 


0000006 
100000 000002 
1$: 


37 words, Routine Base: 


depth per invocation: 


words 


B 5 


11-Jul-198 
8-Jul-198 


Ww 


55 

26 

EGD.22 

EMS. 
CCTLR,-(SP) 
#4,~(SP) 
PC.DROP.CTLR 
CST.ADDR,RO 
#100000,2(RO) 
(SP)+, (SP)+ 
(SP)+,R1 


SCODES + 6050 


SEQ 0259 
VAX-11 Bliss-16 V3-555 page 
_DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (24 


75 


3398 


3399 


3400 


3395 
3366 





c 5 


SEQ 0260 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-19 : VAX-11 Bliss=16 V3-555 bag? 76 
v01.0 MULTI=DRIVE SUBTEST ROUTINES 8-Jul=-19 DUA2: CDOUCETTE.CZRCDICZRCD3.SRC33 (25 


ZSBTTL "MULTI-DRIVE SUBTEST ROUTINES’ 
ROUTINE MULTI_DRIVE : NOVALUE = 


'4 


THIS SUBTEST IS THE MOST SIGNIFICANT PART OF THE ENTIRE PROGRAM. THE 
MULTI=DRIVE SUBTEST IS A HOST=CONTROLLED EXERCISER DESIGNED TO GIVE THE 
USER AN INDICATION OF HOW ONE OR SEVERAL RC25 DRIVES WOULD PERFORM IN 
AN OPERATING SYSTEM ENVIRONMENT. 


THIS ROUTINE ACTS AS AN ‘EXECUTIVE’’ TO THE WHOLE yw BA 
INVOKING MD_INIT TO eM ae th MULTI-DRIVE SUBTEST DATA, THIS ROUTINE 
ICH ISSUES QIOS TO ALL ACTIVE CONTROLLERS AND PROCESSES 
. ALL_OUTSTANDING COMMANDS ARE TIMED IN 
RY TERMINATION OF THIS 


G10s HAVE COMPLETED. 


BEGIN 
IF MANUAL ! IF ATTENDED 


EN ! TH 
PRINTF (MSG_05); ! “MULTI-DRIVE SUBTEST START"’ 
MD_LINIT ©); ! INIT MULTI-DRIVE SUBTEST DATA 


! START OF EXECUTIVE LOOP 
BEGIN 


INCR CTLR FROM 0 TO (.CTLR_CNT = 1) ! FOR EACH CONTROLLER 
SET_CPAR (.CTLR); ! SET UP CURRENT CONTROLLER PARAMETERS 
IF G10_ Ok () EQLU TRUE i IF F_O-K. TO ISSUE Q10(S) TO THIS CONTROLLER 
BEGIN ; 


QIO_GEN (); ! GENERATE 1 OR 2 Q 
IF =MX1 GEQ 0 ! IF SUCCESS ON F 
THEN ! THEN 


BEGIN 
1F SEND (.MX1) EQLU SUCCESS ATTEMPT TO SEND IT. IF SUCCESS 
Q10 C.CTLRJ = .Q10 C.CTLRI + 1 i INCR OUTSTANDING Q10 COUNT 
PUT_ENV (.MX1); i RETURN ENVELOPE TO POOL 
END; 
»MX2 GEQ 0 ! IF SUCCESS ON SECOND Q10 
THEN i THEN 
BEGIN 
IF SEND (.MX2) EQLU SUCCESS ! | ATTEMPT TO SEND IT. IF SUCCESS 


HEN HEN 
Q10 C.CTLRJ = .Q10 C.CTLR) + 1 INCR OUTSTANDING Q10 COUNT 


IRS $1 ar0 





CZRCD3 
v01.0 


Be Ge Fe Se Se Ge Se Ge Fe Ge MHS SCH se Ss Se 


000102 


Wht) ——— 
NSENeRssS o 


004137 
Hy got 
103007 
012746 
012746 
010609 
104417 
Geeses 


d 5 


SEQ 0261 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:5 VAX=11 Bliss=-16 V3-555 e 77 
MULTI-DRIVE SUBTEST ROUTINES reat: 08: 43:5 _DUA2: CDOUCETTE .CZRCDICZRCD3. SRC; 3 (233 
ELSE ' OTHERWISE 
PUT_ENV (.MX2); i RETURN ENVELOPE TO POOL 
END; 
END; ' 0.K. TO ISSUE Q10(S) 
If <DCT_ADDR (STAT) EQLU ONLINE If CONTROLLER IS ONLINE 
INT_PROC (); i PROCESS ANY INTERRUPTS 
END: ! CONTROLLER LOOP 
PROC RETPKT (); ' PROCESS ANY RETURN PACKETS 
IF Te FLAG EQLU TRUE i IF FONE SECOND HAS ELAPSED 
DRV_TIMCHK (); i CHECK OUTSTANDING COMMAND TIMERS 
END ' EXECUTIVE PROCESSING LOOP 
UNTIL MD_QUIT (); ' UNTIL ALL UNITS ARE FINISHED 
END; ! ROUTINE MULTI_DRIVE 
.SBTTL MULTI.DRIVE MULTI-DRIVE SUBTEST ROUTINES 
0000006 MULTI.DRIVE: 
JSR R1,$SAVE2 : 3409 
TRAP 50 ; 3428 
BHIS 1$ 
0000006 MOV #MSG.05,-(SP) ; 3430 
000001 MOV #1,-(SP) 
MOV SP.RO : SP,* 
TRAP 3s *‘7 
CMP (SP)+,(SP)+ 
000000v 1$: JSR PC,MD.INIT ; 3431 
0000006 23: MOV CTLR.CNT,R2 : 3436 
CLR R1 : CTLR 
BR 9$ 
3$: MOV R1,-(SP) : CTLR,* 3439 
0000006 JSR PC; SET.CPAR 
000000v JSR PC.Q10.0K ; 3440 
000001 CAP RO,#1 
000000v JSR PC,Q10.GEN : 3444 
000602" MOV mxi RO ; 3445 
BLT 5$ 
MOV RO, (SP) ; 3449 
0000006 JSR PC, SEND 
000001 cap R041 
0000006 INCB = QJO(R1) : *(CTLR) 3451 
AR : 3449 
000602" 4$: MOV MX1, (SP) : 3453 
0000006 JSR PC PUT .ENV 
000604 5$: Mov me, RO : 3457 





SEQ 0262 
cee CZRCDAO RC25 DISK EXERCISER 244: VAX-11 Bliss-16 V3-55 78 


5 Page 
MULTI-DRIVE SUBTEST ROUTINES 8 243: _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (233 


RO, (SP) : 
0000006 PC ,.SEND 
000001 i 


BNE 6 

0000006 an QIO(R1) : #(CTLR) 
000604" : MX2, (SP) 

0000006 PC ,PUT.ENV 

0000006 : aDCT.ADDR 


000000V PC, INT.PROC 
: (SP)+ 


oS 
—WNNO 


R1 ; CTLR 
R1,R2 ; CTLR,* 


000000V PC PROC .RETPKT 
0000006 000001 MPB Peat 


1 
000000V PC,.DRV. TIMCHK 
000000V : P QUIT 


* oe 
2$ 
PC 


; Routine Size: 81 words, — Routine Base: $CODE$ + 6162 
: Maximum stack depth per invocation: 7 words 





CZRCD3 
v01.0 


000000 
000004 


CZRCDAO RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


ROUTINE MD_INIT : NOVALUE = 


'¢ 


a 


SEQ 026s 
11-Jul-1983 08: 44:52 VAX-11 Bliss-16 V3-555 page 
E-Jul-1983 17:43:57 _DUA2: CDOUCETTE.CZRCDICZRCD3.SRC:3 (26 


i THIS ROUTINE IS CALLED BY ROUTINE MULTI_ORIVE TO INITIALIZE DATA ITEMS 


; USED BY THE MULTI-DRIVE SUBTEST. 


BEGIN 


INIT 10_BUFF (); 
.ENTRY_REASON NEQU NEW_PASS 


BEGIN 
INCR UNIT FROM 0 TO (MAX_UNITS = 1) DO 
BEGIN 


IF "- cere REASON LEQU RESTART) OR 


PA 


! PARTITION FREE MEMORY INTO I/O BUFFERS 
IF a ART, FAIL 


RESTART, CONT, PWR 


! FOR EACH UNIT 


! IF START OR RESTART OR 


T CUUNIT, TRACK] LSSU .SWP_STRACK) OR ! IF USER CHANGED TRACK LIMITS 


C “BST C.UNIT. TRACK] GTRU .SWP_ETRACK)) 
THEN 


ACK] = .SWP_STRACK; 


TR 
SECTOR] = 0; 
J = DP_CNT: 


END; 
END; 


IF ((.ENTRY_REASON NEQU CONT) AND 
(.ENTRY_-REASON NEQU PWR_FAIL)) 


! THEN 


! INITIALIZE BLOCK SEQUENCE TABLE 
: Y FOR SEQUENTIAL LBN MODE) 
! INITIALIZE DATA PATTERN SEQUENCE TABLE 

; (USED ONLY IF ‘PATTERN 0°° WAS SELECTED) 
! END UNIT LOOP 
! END = IF START, RESTART, CONT, PWR FAIL 


! IF START, RESTART, OR NEW PASS 


EN ! THEN 
INCR rc ot AD T0 (MAX. UNITS * TALLY_LEN) = 1) DO ! CLEAR ALL STATS 
INCR ye FROM 0 TO (MAX CTLR * RPS_LEN) = 1) es ! INITIALIZE RETPKT 


COUNT] = 
INCR cOUNT FROM 0 TO (. Nui |_BuFF = 1) DO 
BUFF OWN C.COUNT) = -1; 
IF _ .MEM_AGMT 
THEN 


MMRO = 1; 
T_FLAG = FALSE; 
END; 


0000006 MD.INIT:JSR 
000000v JSR 


000005 


SAVE A 
i INITIALIZE 1/0 BUFFER ALLOCATION 
i JF SYSTEM HAS MEMORY MANAGEMENT 


! THEN 
! ENABLE RELOCATION 
! FLAG TO CALL DRV_TIMCHK EVERY SECOND 


ROUTINE MD_INIT 


- SBTTL “sh e INIT MULTI-DRIVE SUBTEST ROUTINES 

. 4% - INIT. 10.BUFF ; 

0000006 ENTRY.REASON,R2 
C R2,45 





CZRCD3 
v01.0 


CZRCDAO RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


000002 


000442" 0000006 


000442* 0000006 


0000006 000442" 
000025 000540" 
000017 
000003 
000004 


0000006 


000002 
? 001376 


000377 0000006 
000037 


000377 0000006 
0000006 
000001 0000006 


3 
000001 177572 
0000006 


: Routine Size: 
: Maximum stack 


84 words, 
depth per invocation: 


1$: 


10$: 


Routine Base: 


4 words 


G 5 
11-Jul-1 
8-Jul-1 
g1 
R2,#2 
R1,R0 
RO 


RO 

einen mettre 
R1,R0 

RO 


RO 

ee ee 
R1,R0 

RO 


RO 

SWP. STRACK ,BST+2(RO) 
T(RO) 

ath lai 

R1,417 

1$ 

R2,a3 

6$ 

R2,44 

6$ 

RO 

TALLY (RO) 

#2.R 

RO,41376 

5$ 


RO 
#377, RP. SAVE (RO) 
RO,W37 

7$ 

RO 

9$ 

Care ANE ANON 
RO,NUM. BUF F 


+! MEM.MGMT 
#1,a4177572 
T.FLAG 


SCODES + 6424 


SEQ 0264 
VAX-11 Bliss-16 V3-555 page 0 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (26 


3501 
3504 


3505 





H 5 


SEQ 0265 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 + 44: 36 VAX-11 Bliss=-16 V3-555 age 
v01.0 MULTI-DRIVE SUBTEST ROUTINES B-Jul-1983 17:43:5 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (27 


ROUTINE INIT_IO_BUFF : NOVALUE = 


DISA 


ee ee ee 


THIS “pa IS rare BY MD_INIT WHEN THE MULTI-DRIVE a ik IS FIRST 
IT IS RESP ition FOR eee FREE MEMORY 

COLLECTION OF I/O BUFFERS. THE NUMBER OF I/O BUFFERS IS BASED ON THE 

NUMBER OF CONTROLLERS CONFIGURED FOR TESTING. 


IF THIS HOST PROCESSOR_HAS MORE THAN 28K (32K) OF MEMORY, THEN ALL 
AVAILABLE MEMORY OVER 32K (BUT UNDER iT ny IS PE hae = EQUALLY ite 
THE NUMBER OF i” BUFFERS 7“ PER BUFFER MAXI MORY MANAGEMENT 
REGISTERS riz SET UP TO MAP ALL VIRTUAL ADDRESSES. - THE — aes 
ADDRESSES (FOR NOW). IF THE HOST PROCESSOR HAS ONLY 28K, THEN 
ENTS. FREE MEMORY UNDER 28K IS SIMILARLY DIVIDED (WITHOUT MEMORY 


ONCE THE STARTING ADDRESS OF FREE MEMORY IS DETERMINED ALONG WITH THE 

wre SIZE, THE BUFFER 4 CRIPTOR — (BUFF _DESC) IS INITIALIZED. 
THIS TABLE REMAINS FIXED THROUGHOUT THE MULTI-DRIVE SUBTEST. IT 

aw bo? igs TWO-WORD BUFFER DESCRIPTORS USED IN MSCP COMMAND 


IMPLICIT INPUTS: 
CTLR_CNT = THE NUMBER OF CONTROLLERS CONF IGURED 
LSHIMEM = TOP OF FREE MEMORY (IN FORMAT) 
hEM SIZE = SIZE (IN WORDS) OF tREE AREMORY 
FREE_MEM_ADDR = START OF FREE MEMORY 


DT AAVIVIVIEN 
OUSWN—O”O 


PT at at et et et ee 


WANNA AAAANAAAAGI AWA 
SVWONOULSWN Oo OON 


PUPP SASSI IIT IIT 


VAM 


BEGIN 


LOCAL 
HIMEM : WORD, ! TOP OF FREE MEMORY (IN PAR FORMAT) 
BLKS PER BUFF : : WORD, ! NO. OF 32-WORD BLOCKS PER 5 he 
BD_LOW : WORD, ! BUFFER DESCRIPTOR (LO-ORDER) 
Bb GH uo. ! BUFFER DESCRIPTOR (HI-ORDER) 
KTPDR : WORD; ! PDR INITIALIZATION WORD 


NUM _BUF F -CTLR_ CNT * QIO_PER_CTLR; ! CALCULATE NO. OF I/0 BUFFERS NEEDED 
MEM_MGMT = ! ASSUME _NO MEMORY MANAGEMENT 
iF cL SHIRER GTRU %0°2000° : i THAN 32K OF MEMORY 


BEGIN 


MEM_MGMT = YES; ! SET oye pace ted Same 
HIMEM = .LSHIMEM; ! GET TOP OF FREE MEMORY 
“HIME GTRU %0°7577° : 4 GREATER THAN 124K 


' THEN 
HIMEM = %0'7577'; ' SET LIMIT AT 124k 
BLKS PER_BUFF = (.HIMEM - %0°1777") / .NUM_BUFF; ' NO. OF 32-WORD BLOCKS PER BUFFER 
SBiKs- PER_BUFF GTRU %0°200' 


THEW 

BLKS PER_BUFF = %0°200°; ! MAX BUFFER SIZE = 4k 
“yf SIZE = 7BLKS_PER_BUF F * 64; ! BUFFER SIZE IN BYTES 
BD 7H rite = 05. ! BUFFERS START AT 32k 





I 5 
SEQ 0266 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER at et 08:4 44: 36 VAX-11 Bliss-16 V3-555 Pa age 82 
v01.0 MULTI-DRIVE SUBTEST ROUTINES 8-Jul-1983 17:43:5 _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (27 


END 
ELSE ! OTHERWISE = ONLY 28K OF MEMORY 
BEGIN 
BUFF SIZE wath: * 2) / .NUM_BUFF) AND %0°177776'; 
BD_L |.ADDR; ! START OF BUFFER SPACE 
BD. “HIGH = 
END; 
aes OA 0 TO (.NUM_BUFF = 1) DO ! FOR EACH BUFF _DESC ENTRY 
BUFF _DESC C.J. 6 - LO) = .BD_LOW; ! LOAD LOW-ORDER WORD 
Burr D yt C. J, 8D “HIJ] = .BD_HIGH; ! LOAD HIGH-ORDER WORD 
BD_LOW = BDL Low + BUFF _SIZE; ! ADVANCE TO NEXT BUFFER ADDRESS 
i A arta GEQD .BD_LOW : i CARRY 
BD_HIGH = .BD_HIGH + 1; i ADVANCE HIGH-ORDER WORD 
END; 
IF .MEM_MGMT ! IF SYSTEM HAS MEMORY MANAGEMENT 
THEN ! THEN 
BEGIN 
SURE MEM MGMT IS OFF 


= 0; —_ MAKE 
= 40° 77406" i PDR LOAD VALUE 
KTPDR i LOAD PDR'S 


KTP 


a5" 1200": ! LOAD PAR'S 


KTPAR7 
END; 
3641 
3642 END; ' ROUTINE INIT_IO_BUFF 


z0° 7600" : 
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-SBTTL INIT. IO.BUFF MULTI-DRIVE SUBTEST ROUTINES 
000000 004137 0000006 est be. 1. SSAvES 


J 
000004 013700 0000006 MOV ria: CNT RO : 





CERCRS 


000070 


REPEL EEE EEE EEE EEEEEEE 
SNESEYNSESKKSRVSSRSEVOS 


Sees 


saagegsesse 
aeeeee 


oo-00—-—00-"0 
=—or 
St 
™ 
SN 
mn 


CZRCDAO RC25 DISK EXERCISER 
MULTI=DRIVE SUBTEST ROUTINES 


0000006 
0000006 


7 000001 0000006 
0000006 


0000006 
0000026 


0000006 


000001 0000006 


177572 
077406 


1$: 


2$: 


3$: 


4$: 
5$: 


6$: 
7$: 


J 5 


11-Jul-1983 99:64:36 
8-Jul-1983 17:43:57 


RO, 

SHIMEM, #2000 
#1,MEM.MGMT 
LSHIMEM,RO 
RO.47577 
#7577,R0 
RO,-(SP) 
#1777 (SP) 
PC.BLS$DIV 

#200 


e 


#77,R0 

~ Smale 
#1,R3 

MEM. SIZE ,-(SP) 
(SP 


R 
R2 BUFF .DESC(RO) 
R3 BUFF .DESC+2(RO) 


Re, 
BUFF .SIZE,R2 
oR2 


R1,R5 
#1,MEM.MGMT 


a#177572 
#77406,RO 


VAX=-11 Bliss-16 V3-555 
DUA2: CDOUCETTE.CZRCD 


UM. BUFF ,* 


* ,HIMEM 
HIMEM,* 


* ,HIMEM 
HIMEM,* 


BLKS.PER.BUFF ,* 
* ,BLKS.PER.BUFF 


BD.LOW 
; *,BD.HIGH 


* 
BI : 
BD.LOW, TEMP 
*,B0.L 
TEMP ,BD.LOW 
BD.HIGH 
Jet 


*,KTPDR 


a 
JczecD3.SRCz3 (279 


83 


k 5 
DAO RC25 DISK EXERCISER 11-Jul-1983 08:44:5 VAX-11 Bliss-16 V3-5 


SEQ 0268 
CZRCD3 CZ2R 
v01.0 


40 


e 
I-DRIVE SUBTEST ROUTINES B-Jul=1983 17:43:5 ~DUA2: CDOUCETTE. CRD ICZRCDS. SRC 33 (279 


ed ed ad ad ad od ed 
Ssssssss 
WWNIAWA NNW 
SN 
oa ad od 


KTPDR,* 


SCoooooeoo 


WWNUIW 


OO fuMOO 


S 
¥ 


rmrrrnu 
Woe 
co eS) 


Bosco 
g8ee 
ssaelt 
AMOS 


: 
3 Sees 


ab ne ah ee 


#1400,a41 
#7600.98172356 
8$: MP sor? *s 2 (SP)+ 


ooooc[ecoo 


N= 
RON 
onw 
Non 


; Routine Size: 131 words, Routine Base: $CODE$ + 6674 
: Maximum stack depth per invocation: 9 words 
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SEQ 0269 
CZRCD3 CZRCDAO RC25 DISK EXERCISER W-Jul-1983 08:44:52 VAX=11 BL isse -16 V3-555 Page 85 
VO1.0 MULTI-DRIVE SUBTEST ROUTINES B-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.5RC;3 (28 
ROUTINE Q10_0K = 


'¢ 


THIS ROUTINE IS CALLED BY THE MULTI DRIVE “Executive IN ORDER TO 
DETERMINE WHETHER rs NOT A QIO REQUEST (OR QI0 PAIR) 

GENERATED TO THE CURRENT CONTROLLER. A VALUE OF ‘‘TRUE’' IS RETURNED IF 
THE CONTROLLER MEETS 3 REQUIREMENTS: 


A. THE ee IS ONLINE; 
B. THE ya F OUTSTANDING Q1I0S IS AT knce 2 LESS THAN THE 
MAXIMUM ALLOWED FOR ANY ONE CONTROLL 
C. THERE IS AT LEAST on heen: UNDER THE CONTROLLER WHICH IS 
STILL UNDER TEST 


IF ANY OF THESE TESTS FAIL, THEN A VALUE OF ‘‘FALSE’* IS RETURNED. 
IMPLICIT INPUTS: 


CCTLR = CURRENT CONTROLLER NUMBER 
CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST 


BEGIN 
—— CSTATE] EQLU ONLINE ! IF CONTROLLER IS ONLINE 
BEGIN 
— C.CCTLRJ + 2) LEQU QIO_PER_CTLR ! IF OUTSTANDING Q10 COUNT IS O.K. 
BEGIN 
IF .CST_ADDR CU_CNT] NEGU 0 ! IF THERE IS VALID UNIT 
RETURN TRUE; ! **TRUE’’ EXIT POINT 
END; 
END; 
RETURN FALSE; ! *"FALSE’* EXIT POINT 
END; 


Q10.0K MULTI-DRIVE SUBTEST ROUTINES 
0000006 -OK: MOV CST.ADDR RO : 
000002 T 2(RO) 


0002 
000020 
0000006 CST.ADDR RO 
000005 geno) 





SEQ 0270 
CZRCD3 CZRCDAO _RC25 DISK EXERCISER 244: VAX-11 Bliss-16 V3=555 page 86 
v01.0 MULTI=DRIVE SUBTEST ROUTINES 243: DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (28 


012700 000001 3 3676 
000207 PC 


1$: : 3664 
; 3643 


3; Routine Size: 26 words, Routine Base: SCODE$ + 7302 
3; Maximum stack depth per invocation: 0 words 





CZRCD3 
v01.0 


Be Be Se Se Se Ge Fe Se Se Ge Se Se Fe Se Se Se Se Ge Ge Be Se Ge Se Se Se Se Bete Ge ee 
Ww 
oa 


000056 


: Routine Size: 
> Maximum stack 


nN 5 


SEQ 0271 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08: 44: +52 VAX-11 Bliss-16 V3-555 Page 87 
MULTI-DRIVE SUBTEST ROUTINES 8-Jul-1983 17:43:5 _DUA2: CDOUCETTE.CZRCDICZRCD3.SRC;3 (29 
ROUTINE MD_QUIT = 
'¢ 
THIS ROUTINE IS CALLED BY THE MULTI_DRIVE EXECUTIVE FOR DETERMINING THE 
i END OF THE MULTI-DRIVE SUBTEST. ITS"PURPOSE IS TO EXAMINE THE NUMBER OF 
i TESTABLE UNITS REMAINING ON EACH CONTROLLER, AND THE NUMBE 
' OUTSTANDING QIOS. IF BOTH OF THESE PARAMETERS ARE ZERO FOR ALL 
i CONTROLLERS, THEN THIS ROUTINE RETURNS A VALUE 0 TRUE OTHERWISE, 
i THE MULTI-DRIVE SUBTEST EXECUTIVE LOOP MUST UENTINUE. AND A VALUE OF 
“EALSE’’ IS RETURNED. 
BEGIN 
INCR CTLR FROM 0 TO (MAX_CTLR = 1) DO 
BEGIN 
14 cst C.CTLR, U_CNT] NEQU 0 : Hen’ LEAST ONE VALID UNIT REMAINS 
RETURN FALSE i DON'T TERMINATE MULTI=DRIVE SUBTEST 
E i OTHERWISE (NO UNITS REMA 
IF ,010 C.CTLR] NEQU 0 : then. LEAST ONE Q10 BET STANDING 
RETURN FALSE; i DON'T TERMINATE SUBTEST 
END; 
RETURN TRUE; ! ALL PARAMETERS ARE ZERO - END OF SUBTEST 
END; ! ROUTINE MD_QUIT 
.SBTTL MD.QUIT MULTI-DRIVE SUBTEST ROUTINES 
MD. QUIT :MOV R1,=(SP) 3685 
CLR R1 + CTLR 3699 
1$: MOV R1,-(SP) : €TLR,* 3702 
000016 MOV #16,-(SP) 
0000006 JSR PC ,BLSMUL 
CMP (SP)+, (SP)+ 
0000056 TSTB. —- CST#5(RO) 
BNE 2$ : 3704 
0000006 TSTB = QIO(R1) + *(CTLR) 3706 
BNE 2$ : 3708 
INC R1 + CTLR 36 
000003 CMP R1,#2 > CTLR,* 
BLE 1$ 
000001 MOV #1,R0 : 3697 
BR 3$ 
2$: CLR 20 : 3685 
3$: MOV (SP)+,R1 
RTS PC 
24 words, Routine Base: $CODE$ + 7366 


depth per invocation: 4 words 


B 6 


SEQ 0272 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08: 44:52 VAX-11 Bliss-16 V3-555 8 
v01.0 MULTI-DRIVE SUBTEST ROUTINES B-Jul-19835 17:43:57 _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (309 


ROUTINE QIO_GEN : NOVALUE = 


+ 


THIS ROUTINE IS CALLED BY THE MULTI DRIVE oa FOR_AN ONLIKE 
CONTROLLER wey: TO RECEIVE 1/0 Taansren REQUESTS, IT IS 

RESPONSIBLE FOR SECURING ONE OR TWO MSCP pgs AND LOADING THEM 
WITH VARIOUS PARAMETERS COMPRISING THE 1/0 REQUEST. THE 1/0 REQUEST 
GENERATED HERE IS DESTINED TO A PARTICULAR UNIT SELECTED AT RANDOM FROM 
THOSE CONFIGURED UNDER THE CURRENT CONTROLLER. 


ts FIELD OF THE ENVELOPE(S) IS LOADED WITHIN INDIVIDUAL ROUTINES 
(QIO_FUNC, QIO_LBN, QI0_SIZE, ETC.). MOST OF THE VALUES SELECTED FOR 
EACH FIELD ARE “BASED ON"A SET OF RANDOM NUMBER GENERATED AT THE START. 


UNDER NORMAL CIRCUMSTANCES. ONLY, ONE | 1/0 REQUEST Is GENERATED, HOWEVER, 
IF THIS 1/0 REQUEST IS A ‘WRITE’, AND IF THE OPERATOR SELECTED THE 
OPTION FOR HOST WRITE-COMPARES, THEN A SECOND "READ REQUEST WILL BE 
GENERATED WITH THE SAME LSN AND BYTE COUNT. 


AFTER THE ENVELOPE(S) HAVE BEEN LOADED, THIS ROUTINE REGAINS CONTROL 
AND ATTEMPTS TO GET ONE OR TWO I/O BUFFERS FOR THE ACTUAL DATA 
TRANSFERS. THE SUCCESS / FAIL STATUS OF THIS ENTIRE OP ERATION. 1S 
PASSED BACK 10 THE CALLER THROUGH THE GLOBALS 'MX1' AND 'MX2"'; THEY 
CONTAIN VALID MSCP ENVELOPE INDECES, OR -1. 


IMPLICIT INPUTS: 
CCYLR = CURRENT CONTROLLER NUMBER 


BEGIN 


MX2 = =1; ! ASSUME FAILURE IN SECURING 2ND ENVELOPE 
nen GET_ENV (.CCTLR)) LSS 0 ! TRY TO GET 1ST ENVELOPE. IF FAILURE 


! THEN 
N; ! NO POINT IN CONTINUING 
IF (rue : GET_ENV (.CCTLR)) LSS 0 ; i Mh GET 2ND ENVELOPE. IF FAILURE 


BEGIN 
PUT_ENV (. MX1); ! RETURN 1ST ENVELOPE TO POOL 
MX1"= =1; ! INDICATE FAILURE 
RETURN; ! DONE 
END; 
MAD1 = MSCP_ENV + (.MX1 * ENV_LEN * 2); 


MSCP_ENV + (.MX2 * ENVILEN * 2); 


CALCULATE STARTING ADDRESSES 
MAD2 OF BOTH ENVELOPES 
GET_RANDOM 0; 


GENERATE A SET OF RANDOM NUMBERS 

ANDOM UNIT ER INTO ENVELOPES 

CODE) 
QIO“SIZE (); 
GET~10 BUFF (MAD1 CBUF_0)); 
IF <MX2 GEQ 0 
THEN 
BEGIN 


ET AN I/O BUFFER 
e — QIOS ARE TO BE ISSUED 
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SEQ 0273 

CZRCD3 CZRCD40 RC25 DISK EXERCISER 11-Jul-1983 08:44:5 VAX-11 Bliss-16 V3-555 age 89 
v01.0 MULT1-DRiVE SUBTEST ROUTINES rests: 08: 63:5 DUA2: CDOUCETTE .CZRCDICZRCD3. SRC; 3 (309 

377 GET_IO iF (MAD2 CBUF_0J); ' TRY TO GET 2ND I/0 BUFFER 

377 IF [MAB2 CBuF_0] ' IF 2ND BUFFER ALLOCATION FAILED 

3774 THEN ! THEN 

372 BEGIN 

3777 IF NOT .MAD1 CBUF_0J ' IF 1ST 1/0 BUFFER WAS ALLOCATED 

3778 THEN ! THEN 

hg BEGIN 

3781 PUT_IO ret? (MAD1 CBUF_0J); ' RETURN 1ST 1/0 BUFFER TO POOL 

3782 MADT CBuF = -1; ' MARK IT AS FAILED 

3783 

3784 END; 

3785 ' 

3786 PUT_ENV (.MX2); ' RETURN 2ND ENVELOPE TO POOL 

seer MX2 = -1; ! INDICATE FAILURE 

3/50 END; ' JF 2ND 1/0 BUFFER ALLOCATION FAILED 

aa) END; ' IF TWO QIOS ARE TO BE ISSUED 


3793 a CBUF _0J 


IF 1ST 1/0 BUFFER ALLOCATION FAILED 
THEN 


Be Oe Be Se Se Be Se Be Ge Fe Se Ge Ge Fe Ge FH Ss Se Se Ge Be Se Se Ge Se FH Se Se Ge Fe Se Ge Ge Se Se 
S 
oo 
oO 


3794 THEN ! 

shoe BEGIN 

3797 PUT_ENV (.MX1); ' RETURN 1ST ENVELOPE TO POOL 

3798 MX1~= <1; ' INDICATE FAILURE 

3799 

3800 END 

3801 ELSE ' OTHERWISE (ALL IS O.K.) 

3802 IF .MAD1 COPCODE] EQLU OP_WRT ' IF 1ST OPCODE IS A WRITE 

3803 THEN ' THEN 

$e08 FILL_BUFF (); ' FILL 1ST 1/0 BUFFER WITH APPROPRIATE DATA PATTERN 

3806 END: ! ROUTINE Q10_GEN 

.SBTTL QI0.GEN MULTI-DRIVE SUBTEST ROUTINES 

000000 012737 177777 000604" Q10.GEN:MOV #-1,MX2 3 3746 
000006 013746 0000006 MOV CCTLR,-(SP) : 3747 
000012 004737 0000006 JSR PC,GET.ENV 
000016 010037 000602" MOV RO,MX1 
000022 005726 TST (SP)+ 
000024 005700 TST RO : MXx1 
000026 002564 BLT 6$ ; 3749 
000030 013746 0000006 MOV CCTLR,-(SP) : 3750 
000034 004737 0000006 JSR PC,GET.ENV 
000040 010037 000604° MOV RO,M¥2 
000044 005726 TST (SP)+ 
000046 005700 TST RO : Mx2 
000050 002011 BGE 1$ 
000052 013746 000602" MOV MX1,-(SP) : 3754 
000056 004737 0000006 JSR PC ,PUT.ENV 
000062 012737 177777 000602" MOV #~-1,MX1 ; 3755 
000070 005726 TST (SP5+ 3 3750 
000072 000207 RTS PC ; 3752 
000074 013746 000602" 1$: MOV MX1,=(SP) : 3760 





D 6 


@ Gers 
CZRCDAO _RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX=11 Blisso lm V3 page 
MULTI-DRIVE SUBTEST ROU. INES B-Jul-1983 17:43:57 ~DUA2: CDOUCET CaReDICZRCDS. SRC33 (30 


012746 #104,-(SP) 

004737 PC ,BLSMUL 
#MSCP.ENV,RO 
RO,MAD1 


o 
~ 
z 
o 
J 
ues 


ee 


FSRSESEKSRSESE 


PC ,BLSMUL 
#NSCP ENV. RO 
pC.GET. RANDOM 


seeseeeeseees é 
S 


PC,Q10.LBN 
PC,QI0.SIZE 
MAD1, (SP) 
(SP) 


#30, 
Pc, 6e1-10.8UFF 


3$ 

MAD2, (SP) 

#30, (SP) 
PC,GET.10.BUFF 


MOV MAD2,R 
000030 #1.30(RO) 


Seess 


S85 
oFSRS 


MAD1,RO 
000030 #1,30(RO) 
#30, (SP) 
RO, (SP) 
PC PUT. 10.BUFF 
MOV MAD1,R 
000030 #-1,30(RO) 
04° : M SP) 


000. 
000212 
000216 
000222 
000226 
000232 
000240 
000242 
000246 
000254 
000256 
000262 
0002 
000270 
000274 
00030. 
000 


G PC .PUT.ENV 
000604" #~-1,MX2 
“ : MOV MAD1,RO 
000030 #1,30(RO) 
MX1, (SP) 


0 0G PC,PUT.ENV 
177777 000602" eat 


000606" 4$: MAD1,RO 
000020 000042 cM 20(RO) ,#42 
000000v PC, FILL. BUFF 


000006 5$: #6,SP 
6$: PC 


z Routine Size: 129 words, Routine Base: $CODES + 7446 
+ Maximum stack depth per invocation: 4 words 
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SEQ oe? 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44: VAX-11 Bliss=16 V3=-555 page 
v01.0 MULTI=-DRIVE SUBTEST ROUTINES 8-Jul-1983 17:43: _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;33 (31 


ROUTINE GET_RANDOM : NOVALUE = 

'¢ 

: THIS ROUTINE IS CALLED BY Q10_ GEN TO GENERATE A SET OF i NUMBERS , 
D O THE RANDOM NUMBER TABLE (RANDOM). D 


NUMBERS ARE 
OR Q10 PAIR. IN ADDITION, 
RANDOM NUMBERS WILL BE USED IN. THE URITE OPERATION. 


A TEST IS MADE TO AVOID GENERATING THE RANDOM neyyr + ae see 3} at vag 


ER, IF USED AS THE DIVIDEND IN A ‘MOD'* OPERATION (E.G., Q 
REGARDLESS OF THE DIVISOR, RESULTS IN AN OUT~OF “RANGE REMAINDER. 


BEGIN 


SEED1 : WORD INITIAL (%0°123456"); 


LOCAL 
SEED2 : WORD; 


SEED2 = ((.MINUTES * 5) OR .SECONDS) * 5 OR .TICKS; 
DECR COUNT FROM (RDM_LEN = 1) TO 0 DO 
BEGIN 
dO 
BEGIN 
SEED1 (.SEED1 + .SEED2 + 1) * 4; 
SEED2 -SEED2 / 4) + .SEED1; 
RANDOM C.COUNT] = .SEED2; 
END 
UNTIL .RANDOM C.COUNT] NEQU %0°100000'; 
END; 
END; 


.PSECT $GGG$ 
“WORD =54322 


.SBTTL GET.RANDOM MULTI-DRIVE SUBTEST ROUTINES 
*PSECT $CODE$, RO 
0000006 GET..RANDOM: 
JSR 1, $SAVE3 
0000006 MINUTES =(SP) 
000005 P5 
0000006 PCat SSH 


SP 
0000006 SECONDS, (SP) 
000005 MOV #5, -(SP5 


RO 
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SEQ 0276 

CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44 :52 VAX=11 Bliss-16 V3-555 Page 92 
v01.0 MULTI-DRIVE SUBTEST ROUTINES B-Jul-1983 17:43:5 _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (31 
000032 004737 0000006 JSR PC BLSSHF 
000036 010001 MOV RO.R1 : *,SEED2 
000040 053701 0 BIS TICKS R1 > *,SEED2 
000044 912708 000 MOV #36,R2 + *,COUNT 3830 
000050 013703 002552" 1$: MOV SEED1,R3 ; 3836 
000054 010100 2s: MOV Ri, + SEED2,* 
000056 060300 ADD R3,RO 
000060 006300 ASL RO ; 3834 
000062 006300 ASL RO 

010037 002552" MOV RO,SEED1 F 3836 
000070 062737 000004 002552" ADD #4. SEED1 
000076 010116 MOV R1.(SP) : SEED2,* 3837 
000100 012746 MOV #4,-(SP) 
000104 004737 0000006 JSR PC-BLSDIV 
000110 013703 002552" MOV SEED1,R3 
000114 300 ADD R3,RO 
000116 010001 MOV RO.R1 : *,SEED2 
000120 010162 000634' MOV R1.RANDOM(R2) : SEED2,* (COUNT) 3838 
000124 005726 TST (SP)+ : 3834 
000126 020127 100000 CMP R1,4-100000 ; 3841 
000132 001750 BEQ 2$ 
000134 162702 000002 SUB #2,R2 : *, COUNT 3830 
000140 100343 BPL 1$ 
000142 062706 900006 ADD #6,SP ; 3821 
000146 000207 RTS PC : 3807 
: Routine Size: 52 words, Routine Base: S$CODE$S + 10050 


: Maximum stack depth per invocation: 9 words 


e er 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 + VAX-11 Bliss=16 V3-5 page 
v01.0 MULTI=DRIVE SUBTEST ROUTINES 8-Jul-1983 17 ~DUA2: CDOUCETTE. CORD ICZADS. SRC;3 (32 


ROUTINE QIO_UNIT : NOVALUE = 


+ 


THIS ROUTINE IS CALLED BY QI0_GEN TO RANDOMLY SELECT ONE UNIT 

C ED UNDER THE CURRENT CONTROLLER (CCTLR) TO BE USED FOR THE 

CURRENT Q10 OR Q10 PAIR. THE UNIT SELECTED IS BASED ON THE NUMBER OF 

odd ELIGIBLE TO RECEIVE AN 1/0 REQUEST (FROM 1 TO 4) AND THE FIRST 
ANDOM NUMBER IN THE RANDOM NUMBER TABLE (RANDOM). 


IMPLICIT gets: 
T_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST 


IMPLICIT ae ee 
THE MSCP UNIT NUMBER (PLATTER ADDRESS) IS LOADED INTO THE 
APPROPRIATE FIELD OF BOTH MSCP ENVELOPES. 


BEGIN 


LOCAL 
UNIT : WORD, ! UNIT NUMBER 
NTH_UNIT : WORD; ! ORDINAL NUMBER OF CHOSEN UNIT 


CASE “ibaa ! DETERMINE ORDINAL UNIT NUMBER 


({RANDOM [0] AND 1) +1; =! 


‘ 

! 10 
(. RANDOM to MOD 3) + ‘U4, : hy 

' 


[4] : (. vga 5 [0] AND 3) +1; ! 


2 
2, OR 3 
HOUNIT 
tovrimoe) NTH _UNIT = : As 


- OR 4 
E° CONTROLLER JUST WENT DOWN 
wong gs FROM (0 + OF_UN) TO (3 + OF_UN) DO ! LOOP THROUGH EACH CST UNIT 


IF .CST_ADDR C.OFFSET, P_PRES] EQLU PRESENT IF UNIT IS PRESENT 
BEGIN , 


UNIT = .CST_ADDR C.OFFSET, P_UNITJ; ! GET (DRS) UNIT NUMBER 
co C.UNITI ' IF THIS UNIT IS ACTIVE 


! THEN 
BEGIN ! THIS IS AN ELIGIBLE UNIT 


NTH_UNIT = .NTH_UNIT = 1; ! DECREMENT ORDINAL COUNT 
a. >NTH UNIT EoLu 0 IF DOWN TO 0 


! THEN 
BEGIN ! THIS IS THE CHOSEN UNIT 


SET_UPAR (.OFFSET); ! SET UP UNIT-RELATED DATA 
EXITLOOP; ! DONE 


END; 
END; ! UNIT IS ACTIVE 
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H 6 


11-Jul-1983 08:44:5 
B-Jul-1983 17:43:5 


SEQ ere 
VAX-11 Bliss-16 V3-555 


CZRCD3 CZRCDAO RC2S DISK EXERCISER 
01.0 “DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (339° 


MULTI-DRIVE SUBTEST ROUTINES 


END; 
END; 


MAD1 CPL_ADDRJ 
MAD2 CPL_ADDRIJ 


! UNIT IS PRESENT 
! CST UNIT LOOP 


! LOAD PLATTER ADDRESS (MSCP UNIT NUMBER) 
; BOTH MSCP ENVELOPES 


END: ! ROUTINE Q10_UNIT 


- SBTTL QIO.UNIT MULTI-DRIVE SUBTEST ROUTINES 


Bt SsAve> : 
popes CST.ADDR RO : 


00000 (R 
177400 #177400,R0 
000003 RO,#3 

2$ 


0000006 QIO.UNIT: 


RO 
7 000000° P.AAA(RO) PC : Case dispatch 
000001 : MO #1,R2 ; *,NTH.UNIT 


BR 
000634" : MO RANDOM, R2 * ,NTH.UNIT 
177776 44 #177776,R2 * ,NTH.UNIT 


000634" 
000003 
7 0000006 
0000006 


(SP)+,(SP)+ 


000634" : MO RANDOM, R 
177774 #7777, o> 


000003 > MOV SR 
: MOV RS. RO 


CST.ADDR RO 
#40000, (RO) 


9$ 
ne Ae 


; UNIT 
#177740,R1 ; *,UNIT 
cS Sores ; *, (UNIT) 


R2 ; NTH.UNIT 


O& 3 
R3,-(SP) : OFFSET,* 
PC,SET.UPAR 
(SP) + 
10$ 

: R3 
020327 000006 R346 


0000006 
040000 


177740 
000001 0000006 


0000006 


; OFFSET 
; OFFSET,* 








is SEQ 0279 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-19 244: VAX-11 Bliss-16 V3-555 eae 
v01.0 MULTI-DRIVE SUBTEST ROUTINES 8-Jul-19 243: DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (32 


000606° 10$: MAD1,RO 
Bpe ene 000014 CPLAT,14(RO) 


0000006 000014 CPLAT 14 (RO) 


; Routine Size: 80 words, Routine Base: SCODE$ + 10220 
: Maximum stack depth per invocation: 7 words 


-PSECT SPLITS, RO, OD 
Table for Q10.UNIT+0032 





J 6 
SEQ 0280 
CZRCOS CZRCDAO RC25 DISK EXERCISER 11-Jul-198 ° 244:5 VAX-11 Bliss-16 V3-555 Pa 96 
v01.0 MULTI-DRIVE SUBTEST ROUTINES 8-Jul-198 243:5 _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (33) 


3911 ROUTINE QIO_FUNC : NOVALUE = 


39135 !+ 

3914! THIS gr ty IS CALLED BY QI0_GEN TO SELECT THE I/0 FUNCTION (OPCODE) 
TO BE USED FOR THE CURR ae T Q16 OR QIO0 PAIR. THE FUNCTION IS DETERMINED 

BY THE FOLLWING ALGORITHM 


ven CHOSEN UNIT IS PROTECTED 
UNCTION = READ 
ELSE CUNPROTECT ED) 
F OPERATOR SELECTED “WRITE-ONLY'’ OPTION 
FUNCTION = WRITE 
FUNCTION (WRITE OR READ) IS BASED ON A RANDOM 
NUMBER 
IN ADDITION, IF THE —— wets THE OPTION OF PERFORMING WRITE~ 
COMPARES AT THE HOST, AND IF A ‘WRITE’’ FUNCTION WAS CHOSEN ABOVE FOR 
THE FIRST Q10, THEN A "READ" OPCODE IS LOADED INTO THE SECOND MSCP 
ENVELOPE. OTHERWISE, THE SECOND MSCP ENVELOPE IS RETURNED TO THE POOL. 
IMPLICIT pple 
T_ADDR = ADDRESS OF ery! CONTROLLER'S CST 
CUOFF = CURRENT UNIT CST OFFSET 


IMPLICIT OUTPUTS: 
THE OPCODE FIELD OF ONE OR BOTH MSCP ENVELOPES IS LOADED. 


Ww 
© 
Nm 
co 


3942 BEGIN 


3944 LOCAL 
39455 FUNC : WORD; ' GPCODE (READ OR WRITE) 


3947 ee ADDR C.CUOFF, P_PROT] EQLU SROTECTED 4 THEN IS PROTECTED 

2949 FUNC = OP_RD ' SET FUNCTION TO READ 

3950 ELSE ' OTHERWISE (UNIT IS UNPROTECTED) 
3951 BEGIN 

3953 IF BIT_TST (SWP_FLAGS, SWF _WO) 
39 THEN 

3955 FUNC = OP_WRT 

3956 ELSE 

3957 BEGIN 

3959 IF (. RANDOM [1] AND 1) 

96 THEN 

3961 FUNC = OP_RD 

3962 ELSE 

3963 FUNC = OP_WRT; 

3965 END; 


3967 END; 


i ae CHOSE WRITE-ONLY OPTION 


E 
SET FUNCTION TO WRITE 
OTHERWISE 


USE 2ND RANDOM NUMBER TO SELECT 
EITHER 


OR 
WRITE 


Re Be Be Ge Be Be Se Be Se Bs Se Be Be Ge Se Fe Se Se Se Ge Be Ge Fe Ge Ge Se Se Ge Se Be Ge Ge Se Ve Ge Se Se Se Be Se Go Se Se Fe Ge Ge Ge Se Ge Se Se Ge Ge BH He Be we 
Ww 
oO 
Ww 
oO 


K 6 
SEQ @ Gent 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 0:7 4:52 VAX-11 Bliss=-16 V3-555 cage 9 
v01.0 MULTI=DRIVE SUBTEST ROUTINES 8-Jul-1983 17:43:57 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (33 
IF (MAD1 COPCODE] = .FUNC) EQLU OP_WRT ! LOAD CHOSEN OPCODE. IF WRITE 
THE ! THEN 
BEGIN 
4 BIT_TST (SWP_FLAGS, SWF _CWC) : 4 CONTROLLER DOES WRITE-COMPARES 
MAD1 CMODIFY] = MD_CMP; i ADD COMPARE MODIFIER 
IF BIT_TST (SWP_FLAGS, SWF _HwC) ! IF HOST DOES WRITE-COMPARES 
THE ! THEN 
BEGIN 
MAD1 CMODIFY] = MD_EXP; ! SET EXPRESS a MODIFIER 
MAD2 COPCODE) = OP_RD; ! SET READ OPCODE INTO 2ND MSCP ENVELOPE 
MAD2 [MODIFY] = MD_EXP; ! SET EXPRESS REQUEST MODIFIER 
END; 
END 
BEGIN 
IF BIT_TST (SWP_FLAGS, SWF _CRC) ’ v a DOES READ-COMPARES 
MAD1 CMODIFY] = MD_CMP; i ADD COMPARE MODIFIER 
END; 
IF .MAD2 COPCODE] EQLU 0 ! IF NO OPCODE IN 2ND ENVELOPE 
soe ! THEN 


PUT_ENV (.MX2); : dg B 2ND ENVELOPE TO POOL 
MX2 = -1; ! MARK IT UNUSED 


END; 
END; ! ROUTINE QI0_FUNC 


! OTHERWISE = FUNCTION IS READ 


-SBTTL QIO.FUNC MULTI-DRIVE SUBTEST ROUTINES 
-PSECT S$CODE$, RO 


0000006 QIO.FUNC: 
JSR Ri -SSAVE? 
0000006 ro F,RO 


0000006 T.ADDR RO 
100000 #100000. (RO) 


E 1$ 
000020 0000006 AM Se0. SUP. FLAGS 
000001 000636° 5, aun 
000041 : #41,R2 
3$ 





CZRCD3 
v01.0 


012702 
005001 


z Routine Size: 
3; Maximum stack 


CZRCDAO RC25 DISK EXERCISER 
MULTI=DRIVE SUBTEST ROUTINES 


000042 23: 
3$: 

000606 ° 

000020 

000042 

000040 

040000 000022 

000100 


100000 000022 
000610" 
000041 000020 
100000 000022 
000010 
040000 000022 
000610" 


900604 ° 
0000006 
177777 000604' 
7$: 


74 words, | Routine Base: 
depth per invocation: 5 words 


L 6 


11-Jul-19 
8-Jul-19 


eye Re 
SWP.FLAGS,R1 
i,R 
R2,20(RO) 
R2,442 


#40,R1 
#40000 ,22(RO) 
#100,Ri 


6$ 
#-100000,22(RO) 
MAD2,RO 
#41,20(RO) 
#-100000,22(RO) 
#10,R1 
#40000 
MAD2,R 
20(RO) 


22(R0) 
6 


SCODES + 10460 


3 
3 


08:4 
17:4 


SEQ 0282 
VAX-11 Bliss-16 V3-555 


nage 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (33 


; *,FUNC 


98 
3963 
3973 
3969 


3973 





CZRCD3 
v01.0 


Be Se Se Be Be Se Be Se Bs Se Se Ge Be Se Ge Fe Se Ge Be Be Be Be Fe Ge Se Fe Ge Se Be Se Se Be Se Se Ss Se Ge Se Be Ge Ss Se Se Se Se Ge Fe Se Ge Fe Be Ge Se 
Py 
Oo 
Ww 
Ww 


000000 004137 


Mm 6 


SEQ 0283 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08: 44:52 VAK=11 Bliss-16 V3-555 Page 
MULTI=DRIVE SUBTEST ROUTINES B-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (34 
ROUTINE QIO_LBN : NOVALUE = 
'¢ 
i THIS ROUTINE IS CALLED BY Q10._GEN T0 SELECT THE LOGICAL BLOCK NUMBER TO 
BE USED FOR THE CURRENT Q10 OR Q10 PAIR 
i IF THE OPERATOR CHOSE THE RANDOM SEEK MODE OPTION, THEN THE LAN IS 
i RANDOMLY CHOSEN WITHIN THE SPECIFIED LIMITS FOR TRACK AND SECTOR. 
i OTHERWISE, THE NEXT SEQUENTIAL LON IS DERIVED FROM THE BLOCK SEQUENCE 
: TABLE (BST). 
i IMPLICIT INPUTS: 
: LS$LUN = CURRENT (DIAGNOSTIC SUPERVIOR) UNIT NUMBER 
i IMPLICIT OUTPUTS: 
THE LBN IS LOADED INTO ONE OR BOTH MSCP ENVELOPES. 
BEGIN 
OCAL 
T_RANGE : WORD, ' PERMISSIBLE RANGE OF TRACK NUMBERS 
S"RANGE : WORD, i PERMISSIBLE RANGE OF SECTOR NUMBERS 
NTRACK : WORD, i SELECTED TRACK NUMBER 
NSECT : WORD, i SELECTED SECTOR NUMBER 
LBN : WORD; i LOGICAL BLOCK NUMBER 
IF BIT_TST (SWP_FLAGS, SWF_RDM) ' IF RANDOM SEEK MODE 
THEN i THEN 
BEGIN 
T_RANGE = (.SWP ETRACK - .SWP_STRACK) + 1; RANGE OF TRACK NUMBERS 
S"RANGE = MAX_SECT ANGE OF SECTOR NUMBERS 
NTRACK = .SWP—STRA ck : “ABS (.RANDOM 2] MOD .T _RANGE) % RANDOM TRACK NUMBER WITHIN RANGE 
NSECT = ABS (7RANDOM [3] MOD .S_RANGE); '” RANDOM SECTOR CNUMBER WITHIN RANGE 
END 
ELSE ! ELSE = SEQUENTIAL LBN MODE 
BEGIN 
NTRACK = .BST C.L$LUN, TRACK); ' GET TRACK FROM BST 
NSECT = ast C.L$LUN, SECTOR: i GET SECTOR FROM BST 
ADV_BST (); i ADVANCE TO NEXT LBN 
END; 
LON = (.NTRACK * SEC_PER_TRK) + .NSECT: CALCULATE LBN 


ape CLBN ae -LBN;~ LOAD LBN INTO 1ST ENVELOPE 
IF 2 QI0S 


+ 
MX2 GEQ ; 
! THEN 
MAD2 a = .LBN; ! LOAD LBN INTO 2ND ENVELOPE 
END; ! ROUTINE QI0_LBN 


-SBTTL QIO.LBN MULTI-DRIVE SUBTEST ROUTINES 
0000006 Q10.LBN:JSR R1,$SAVE2 : 


4007 


CZRCD3 
v01.0 


3 Routine Size: 
; Maximum stack 


CZRCDAO_RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


000004 0000006 


0000006 
0000006 


000037 
000640° 


0000006 
0000006 
0000006 
000642" 
0000006 
0000006 
000006 
0000006 1$: 


2$: 


3$: 


66 words, Routine Base: 
depth per invocation: words 


N 6 


11-Jul-19 
8-Jul-19 


#4, SWP.FLAGS 
1$" 


SWP.ETRACK,RO 
SWP. STRACK RO 


#37,R1 
Rswtaes o= (SP) 
C,BL _ 
RO. (SP) 
PC ,BLSABS 
SWP. STRACK ,RO 


RO.R 

RANDOM+6 , (SP) 

R1,-(SP) 

PC,.BLSMOD 
(SP) 

PC ,BLSABS 

RO,R1 


2$ 
LSLUN,RO 
RO 


RO 
BST+2(RO) ,R2 
BST(RO),R1 


RO 
R1,44(RO) 


Mx2 
3$ 


MAD2,RO 
R1, 44 (RO) 
(SP) +, (SP)+ 


SCODES + 10704 


SEQ 0284 
VAX-11 Bliss-16 V3-5 


_DUA2: CDOUCETTE. CaReDICZRCDS. SRC;3 (34) 


*,S.RANGE 
4 T. RANGE ,* 


3; *,NTRACK 
3; S.RANGE,* 


* ,NSECT 


* ,NTRACK 


* ,NSECT 


NTRACK,* 


NSECT,* 
*,LBN 


LBN,* 


LBN,* 


4041 


8 7 
SEQ @ 0285 
CZRCDAO RC25 DISK EXERCISER 11-Jul-19 : VAX-11 Bliss=-16 V3-555 page 101 
MULTI=DRIVE SUBTEST ROUTINES 8-Jul-19 : DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (35 


ROUTINE ADV_BST : NOVALUE = 

'¢ 

: THIS ROUTINE IS CALLED BY Q10 43) " ADVANCE THE CURRNET UNIT’S LBN 
: IN THE BLOCK SEQUENCE TABLE st THIS IS DONE BY INCREMENTING THE 


SECTOR NUMBER (AND TRACK NUMBER ie 'N eaaee WHILE ENSURING THAT 
BOTH VALUES REMAIN WITHIN THE PROPER LIMITS. 


IMPLICIT INPUTS: 
LSLUN = CURRENT (DRS) UNIT NUMBER 


BEGIN 


BST C. gw SECTOR] = .BST C.LSLUN, SECTOR] + 1; ! INCREMENT SECTOR NUMBER 
—— ~L$LUN, SECTOR] GTRU MAX_SECT ; — IS BEYOND HIGH LIMIT 


BEGIN 
BST C.LSLUN, SECTOR] = 0; ! SET SECTOR TO LOW LIMIT 
BST "hs foe act TRACK] = .BST C.LSLUN, TRACK] + 1; ! INCREMENT TRACK NUMBER 
IF . C.L$LUN, TRACK] GTRU .SWP_ETRACK : —— IS BEYOND HIGH LIMIT 

BST C.LSLUN, TRACK] = .SWP_STRACK; ' SET TRACK TO LOW LIMIT 
END; 

! ROUTINE ADV_BST 
-SBTTL ADV.BST MULTI-DRIVE SUBTEST ROUTINES 


ADV.BST:MOV R1,-(SP) : 
0000006 M LSLUN, RO : 


RO 
000440" #BST,R1 
RO,R1 


(R1) 
000036 C lalate 


C (R1) 
000442" 7+ iecmae 
0000006 (RO), SWP.ETRACK 
0000006 SWP. STRACK, (RO) 
1$: (SP)+,R1 


; Routine Size: 23 words, Routine Base: $CODE$ + 11110 
+ Maximum stack depth per invocation: 2 words 





CZRCD3 
v01.0 
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¢# 


CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 
MULTI=DRIVE SUBTEST ROUTINES 8-Jul-1983 


ROUTINE QIO_SIZE : NOVALUE = 


'¢ 

: THIS ROUTINE IS CALLED BY Q10_GEN A SELECT THE iy TRANSFER BYTE COUNT 
; TO BE USED FOR - CURRENT Q10 OR Q ‘er THE BYTE COUNT IS 
DETERMINED BY A RANDOM NUMBER, AND WiLL A WAYS BE AN EVEN NUMBER 
BETWEEN 0 AND THE 1/0 BUIFER SIZE (BUFF Size). INCLUSIVE. 


IMPLICIT OUTPUTS: 
THE BYTE COUNT I'3 LOADED INTO ONE OR BOTH MSCP ENVELOPES. 


SEQ 0286 
08:44: VAX-11 Biiss-16 V3--555 age 
17:43: _DUA2: CDOUCETTE. CZRCDICZRCD3.SRC33 (36 


BEGIN 


LOCAL 
END BLK : WORD . : pais BLOCK NUMBER FOR CURRENT 1/0 
SIZE : WORD; i BYTE COUNT 


SIZE = ABS (. RANDOM [4] MOD (. SIZE | + 1)) AND %0°177776'; } GET re COUNT FROM RANDOM NUMBER 
END “BL LK = .MAD1 CLBN_L) + ((.SI ) / BLK_SIZE); ' CALCULATE ENDING BLOCK NUMBER 
IF gene _BLK GTRU (. oUSIze - 1) ! if ENDING BLOCK IS CARGER THAN UNIT SIZE 
SIZE = (.USIZE - .MAD1 CLAN_LJ) * BLK_SIZE; ! SCA ALE DOWN BYTE COUNT 
MAD1 [BC_LO] = .SIZE; ' LOAD SIZE INTO 1ST MSCP ENVELOPE 
a GEQ 0 ' If “a Q10s 
MAD2 [BC_LOJ = .SIZE; i LOAD SIZE INTO 2ND MSCP ENVELOPE 


! ROUTINE Q10_SIZE 


-SBTTL QIO.SIZE MULTI-DRIVE SUBTEST ROUTINES 


Q10.SIZE: 
JSR R1,$SAVE3 
RANDOM+10,=(SP) 
BUFF .SIZE,-(SP) 
(SP) 
PC ,BLS$MOD 
RO, (SP) 
PC ,BLSABS 
RO,RS ; *,SIZE 
; *,SIZE 


; SIZE.* 


RO.R R2 ; * ,END.BLK 
USIZE,RO > 
RO 
R2,R0 ; END.BLK,* 


1$ 
000616" MOV USIZE.R 
000044 44 (Ri), 8 


RO 





7 
2 SEQ 0287 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul=1 : VAX-11 Bliss-16 V3-555 page 103 
v01.0 MULTI=DRIVE SUBTEST ROUTINES 8-Jul-1 743: DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (36 


RO 

RO,R3 ; *,SIZE 
MAD1 eRO ; 
R3,24(RO) ; SIZE,* 
Mx2 : 


1$: 4111 


4112 
2s 
MAD2,RO ; 4114 
R3,24(RO) ; SIZE,* 

2$: #6,SP ; 4100 
PC 4088 


; Routine Size: 53 words, Routine Base: $CODES + 11166 
: Maximum stack depth per invocation: 8 words 





—E 7 


11-Jul-19 
8-Jul-19 


SEQ 0286 
VAX=11 Bliss-16 V3-555 


ZRCD3 RCDAO RC25 D XERCISER 104 
v ROL TI-DRIVE SUBTEST ROUT DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 i 


01.0 MULTI-DRIVE SUBTEST ROUTINES 
ROUTINE FILL_BUFF : NOVALUE = 


> 


THIS ROUTINE IS CALLED BY QI0_GEN TO LOAD THE 1/0 BUFFER DESCRIBED IN 
THE FIRST MSCP ENVELOPE WITH THE APPROPRIAYE DATA PATTERN. 


THE DATA PATTERN TO BE SELECTED IS BASED ON THE FOLLOWING ALGORITHM: 
cen OPERATOR DEFINED A DATA PATTERN 
SELECT IT 


GET DATA PATTERN NUMBER FROM SW P-TABLE 
— PATTERN NUMBER = 0 


GET DATA PATTERN NUMBER FROM THE UNIT'S ENTRY 
IN THE DATA PATTERN SEQUENCE TABLE (DPST) 


NOTE THAT PATTERN # 1 CONSISTS OF RANDOM NUMBERS, AND PATTERNS # 17 - 
21 USE THE ACTUAL LON OF THE WRITE REQUEST. 


IMPLICIT INPUTS: 
LSLUN = CURRENT (DRS) UNIT NUMBER 


ELSE 


! DATA PATTERN NUMBER SELECTED 

! ADDR OF DATA PATTERN (LENGTH) 

! 1/0 BUFFER ADDRESS (DESTINATION) 
! WORKING a ADDRESS 

: MEM. “ext DISPLACEMENT 
i PAGE ADDRESS F LD 

! NO. OF WORDS IN DATA PATTERN 


! IF USER DEFINED A DATA PATTERN 
THEN 


PAF ‘ 
COUNT : WORD; 
IF BIT_TST (SWP_FLAGS, SWF_UDP) 
THEN 
DP_ADDR = SWP_UCNT 
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BEGIN 
IF .SWP_DPAT NEQU 0 
THEN 

DP_NUM = .SWP_DPAT 


ELSE 


DP_NUM = .DPST C.LS$LUNI]; 

ppsT C. L$L UN] = .DPST C°LSLUN) + 1; 

I atl C.LSLUNI GTRU DP_CNT 
DPST C.L$LUN) = 1; 

FND; 


DP_ADDR = .DPA_TBL C.DP_NUM = 1); 


i SELECT JT 
i OTHERWISE 
! IF USER SELECTED A PREDEFINED DATA PATTERN 
i SELECT IT 
i OTHERWISE 


: er PATTERN NUMBER FROM SEQUENCE TABLE 
NUMBER 


TO NEXT PATTERN 


! ADVANCE 
: CHECK FOR HIGH LIMIT 


! ADDRESS OF DATA PATTERN (COUNT) 





Fe iy 


CZRCDAO_RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


IF .DP_NUM GEQU 17 
THE 
BEGIN 
IF .DP_NUM 
epg DPHADOR + 2) = .MAD1 CLBN_LJ 
(.DP_ADDR + 4) = .MAD1 CLON_LI; 


END; 


4187 
4188 I0B_ADDR = .MAD1 (BUF _0J; 
89 ar MEM M_MGMT 


BEGIN 
DISP = .10B_ pod AND oy Ag a 


Pp (. “ -6) AND %0'1600'; 
KTPARS = (. mapa BUF_1) r 10) OR .PAF; 


I0B_ADDR = %0° 1opp00T OR .DISP; 
END; 
COUNT = ..DP_ADDR; 
SRC ADDR = .DP_ADDR + 2; 
INCR N FROM 1 TO (.MAD1 CBC_LOJ / 2) DO 
BEGIN 
ADDR ” 0B. A ABpR ° 23 
“SRC “ADDR + 2; 


IF (.10B_ADDR AND %0°17777") EQLU 0 
THEN 
BEGIN 


108 ADDR = %0'100000'; 
KTPARG = .KTPAR4 + %0°200'; 


END; 
END; 
COUNT = .COUNT - 1 
eel EQLU 0 
BEGIN 


COUNT = ..DP_ADDR; 
SRC_ADDR = .BP_ADDR + 2; 


11-Jul-1983 08: 44:52 
31 


F 7 
0 0289 
VAX-11 Bliss=-16 V3-555 rege 105 


8-Jul-198 43:57 _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (37 


! IF PATTERN 17, 19, OR 21 
i LOAD LBN INTO FIRST WORD OF PATTERN 


ELSE - PATTERN 18 O 


i LOAD L8N INTO SECOND WORD OF PATTERN 


! 1/0 BUFFER ADDRESS 
: i" HAS MEMORY MANAGEMENT 


1/0 BUFFER wr? ee ADDRESS 


| PAGE ADDRESS FIEL 
i LOAD PAR4 
i 1/0 BUFFER VIRTUAL ADDRESS 


! NO. OF WORDS IN DATA PATTERN 


START OF THE ACTUAL DATA PATTERN 


' FOR EACH WORD IN THIS WRITE REQUEST 


! MOVE 1 WORD 
! ADVANCE DESTINATION ADDRESS 
DDRESS 


ADVANCE SOURCE A 


i IF SYSTEM HAS MEMORY MANAGEMENT 

i THEN 

' IF 1/0 BUFFER CROSSES A 4K PAGE BOUNDARY 
i THEN 


! RESET VIRTUAL ADDRESS 
! ADVANCE PAR TO NEXT 4K PAGE 


! END = IF MEMORY MANAGEMENT 


! DECREMENT COUNT 
; en OF DATA PATTERN 


! REPEAT DATA PATTERN 








CZRCD3 
v01.0 


SERRSRVER 


22323 33 3 too 
oOfo 


SSSSSSSSssses 
SRRSE 





G6 7 


CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 0 
MULTI=DRIVE SUBTEST ROUTINES 8-Jul-1983 1 


END; 
END; ! WORD TRANSFER LOOP 
IF _ .MEM_MGMT . iti HAS MEMORY MANAGEMENT 
KTPAR4 = %0°1000°; ! RESTORE PAR4 
END; ! ROUTINE FILL_BUFF 


SEQ 0290 
24 


8:44:52 VAX-11 Bliss-16 V3-555 
7:43:57 


-SBTTL FILL.BUFF MULTI-DRIVE SUBTEST ROUTINES 
0000006 eemea’ ™ 


R1,$SAVES : 
CMP =(SP) ,-(SP) 
0000006 SWP.FLAGS : 


1$ 
0000006 #SWP.UCNT ,R4 : 
BR 5$ ; 


: C RO 
0000006 SWP.DPAT,RO 
TST RO 

RO,R1 
3$ 
L$LUN,RO 
#DPST,RO 
Ri 
+ Sa 
(RO) #25 


#1, (RO) ; 
R1,R0 ; DP.NUM,* 


R 
DPA. TBL=2(RO) .R4 ; *,DP.ADDR 
R1,421 ; DP.NUM,* 


MAD1,RO : 
Rt : DP.NUM 
000002 MO 44(RO),2(R4) ; *,*(DP.ADDR) 
0044 000004 : 44 (RO) 4(R4) : #,*(DP.ADDR) 
‘ 30(R1) RS : *,10B.ADDR 
000002 MEM.MGMT ,2(SP) 
000002 #1.2(SP) 
R5.R3 : DDR, DISP 
#160000,R3 : P 
R5,=(SP) : 
177772 #~6,-(SP) 
0000006 PC ,BLSSHF 
RO.R2 
176177 #176177,R2 


page 106 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRE;3 (37 


H 7 
SEQ oes" 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 11=Jul-1983 08:44:52  VAK-11 Bliss-16 v3-555 Page 107 
v01.0 MULTI-DRIVE SUBTEST ROUTINES B-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (37 
000214 016100 000032 MOV 32(R1),RO : 4195 
000220 000300 SWAB RO 
000222 105000 CLRB 3s RO 
000224 006300 ASL RO 
000226 006300 ASL RO 
000230 010246 MOV R2,=(SP) : PAF,* 
000232 050016 BIS RO, (SP) 
000234 012637 172350 MOV (SP) +,@#172350 
000240 010305 Ov R3,R5 : DISP,10B.ADDR 4196 
000242 052705 100000 BIS #100000,R5 : *,10B.ADDR 
000246 022626 CMP (SP)+, (SP)+ 8 4191 
000250 011403 6$: MOV (R4) ,R3 + DP.ADDR, COUNT 4200 
000252 012702 000002 MOV #2,R2 ; 4201 
000256 060402 ADD R4,R2 t DP.ADDR,* 
600260 010216 MOV R2, (SP) t *,SRC.ADDR 
000262 016146 000024 MOV 24(R1) ,=(SP) : 4202 
000266 012746 000002 MOV ,=(SP) 
000272 004737 0000006 JSR PC.BLSDIV 
000276 005001 CLR Ri :N 
000300 000426 BR 9$ 
000302 017625 000004 7$: MOV a4(SP),(R5)+ : SRC.ADDR, 10B.ADDR 4205 
000306 062766 000002 000004 ADD #2,4(SP) : *,SRC.ADDR 4207 
000314 032766 000001 000006 BIT #1.6(SP) : 4208 
000322 001410 BEQ 
000324 032705 017777 BIT #17777,RS : *,10B.ADDR 4212 
000330 001005 BNE 
000332 012705 100000 MOV #~-100000,R5S : *,10B.ADDR 4216 
000336 062737 000200 172350 ADD #200,a#172350 : 4217 
000344 005303 8$: DEC R3 : COUNT 4223 
000346 001003 BNE 9$ : 4224 
000350 011403 MOV (R4) .R3 + DP.ADDR, COUNT 4228 
000352 010266 000004 MOV R2,4(SP) > *,SRC.ADDR 4229 
000356 005201 9$: INC : N 4202 
000360 020100 CMP R1,RO : Not 
000362 003747 BLE $ 
364 032766 000001 000006 BIT #1,6(SP) ; 4235 
000372 001403 BEQ 10 
600374 012737 001000 172350 MOV #1000,a#172350 : 4237 
000402 062706 000010 10$: ADD #10,SP ; 4117 
06 000207 RTS 


; Routine Size: 132 words, Routine Base: $CODES + 11340 
: Maximum stack depth per invocation: 11 words 





i; # 


SEQ Ge%e 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-198 VOUAP: Bliss-16 V3-5 page 108 
v01.0 MULTI“DRIVE SUBTEST ROUTINES 8-Jul-198 DUA2: CDOUCETTE. CRD ICZRCDS. SRC33 (38 


ROUTINE PROC_RETPKT : NOVALUE = 


'¢ 
' 


' 

: THE 170 DONE Q ACTS A "THe LINK 

: BETWEEN PARTS; IT HOLDS INDECES OF RETURN PACKETS WHICH 
REQUIRE PROCESSING. 

ec _ MULTI-DRIVE SUBTEST, RETURN PACKETS ORIGINATE FROM TWO 
“1. DISK MSCP = THE MORE COMMON, DESCRIBING A COMPLETED 1/0 
! 


2. THE PROGRAM ‘DRIVER’ = DESCRIBING A CONTROLLER ERROR OR 
COMMAND TIMEOUT. 


BEGIN 
“a NEQU .10DQ_OUT DO ! DO UNTIL 1/0 DONE QUEUE IS EMPTY 
P_INDX = OUT_I0DQ ( ! GET INDEX OF NEXT RETPKT AND ADVANCE OUT POINTER 
RP ADDR = REIPRT ° ( ! CALCULATE RETPKT ADDRESS 
SET_CPAR (.RP_ADDR C ' SET UP CURRENT CONTROLLER PARAMETERS 
SELECTONEU -RP_ADDR ! CONNECTION ID INDICATES PACKET SOURCE 
CCID_DISK) : 10_ ! DISK MSCP (1/0 Meret Sy DONE ) 
CCID-DRIVERI DR_ tO: i MESSAGE FROM ‘DRIVER 
END; ! UNITL 1/0 DONE QUEUE IS EMPTY 
END; ! ROUTINE PROC_RETPKT 


-SBTTL PROC.RETPKT MULTI-DRIVE SUBTEST ROUTINES 
0000006 0000006 PROC .RETPKT: 
1$: CMP a - IN, 10DQ.0UT : 


0000006 PC,OUT.10DQ : 
0000006 MOV RO.RP. INDX 
: RP.INDX,* 
000060 
0000006 
0000006 
0000006 
000002 
177760 
0000006 
0000006 RO 
000003 3(RO) RO 
177400 B! 3177460, RO 
000000v PC, JO.RETPKT 
000003 : RO,43 


299 
s 


SSsse 
VANAS 








J 7 
SEQ 0295 


CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 08:64:36 VAX=-11 Bliss-16 V3-555 page 
MULTI-DRIVE SUBTEST ROUTINES -1983 17:43:5 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (38 


3$: 
4$: 


3; Routine Size: 41 words, Routine Base: $CODE$ + 11750 
: Maximum stack depth per invocation: 3 words 


2 
7? 4 000000v 








kK 7 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 9: 44:52 VAX-11 Bliss-16 V3-555 110 
v01.0 MULTI-DRIVE SUBTEST ROUTINES 8-Jul-1983 17:43:57 DUA2: CDOUCETTE .CZRCDICZRCD3. SRC; 3 seas 
3 4274 ROUTINE IO_RETPKT : NOVALUE = 

ra 

: + 

3 4277 |! THIS ROUTINE IS CALLED BY PROC_RETPKT TO HANDLE ALL I/0 TRANSFER 

$ 4278 ! RETURN PACKETS. gyn y OF THESE PACKETS INCLUDES DECLARING ANY 

3 4279 ! HARD ERRORS THAT MAY HAVE OCCURRED, UPDATING THE STATISTICS, AND 

5 osay PERFORMING HOST WRITE-COMPARES IF REQUIRED. 

3 4282 ! IMPLICIT INPUTS: 

: 4283 ! RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET 

3 este ECTLR = CURRENT CONTROLLER NUMBER 

; 4286 

: res BEGIN 

3 4289 SWEEP es _TRUE; ! INDICATES THAT SWEEP () WILL BE CALLED 
3 4290 FSET_UPAR ' FIND UNIT'S ENTRY IN tM - SET UP UNIT=-RELATED DATA 
; 4291 ST_CODE = “Re. ADDR CSTSCODIJ; ' GET STATUS CODE FROM RETP 

3 4292 SB_CODE = .RP_ADDR CSUBCOD); ' GET SUB-CODE, IF ANY 

3 4293 - eet, CODE RAE OU ST_SUC ' IF STATUS CODE INDICATES ERROR 

; 4294 THEN ! THEN 

3 4295 BEGIN 

3 4296 

3 4297 IF .ST_CODE EQLU ST_OFL ! IF UNIT OFFLINE 

; 4298 u ! THEN 

; rt BEGIN 

3 4301 ERRDF (19, EGD_ yee EMS_19); ' “FATAL I/0 ERROR" 

3 4302 DUR CALSLUN), = DU_ FATAL; ' LOAD REASON FOR DROPPING UNIT 

5 4303 DODU (.LSLUN); ! DROP UNIT 

: 4304 

4 4305 END 

z 4306 ELSE ' ELSE = ERROR IS NOT UNIT-OFFLINE 

: 4307 BEGIN 

: 430 

; 430 CASE .ST_CODE ‘ 

, 431 FROM'1 TO 11 OF 

3 4311 SET 

3 4312 [1] : ERRHRD (31, EGH_30, EMS_30); ' INVALID COMMAND 

3 4313 [2] : ERRHRD (32, EGH_30, EMS_30); ' COMMAND ABORTED 

: 4314 C3) $s ' UNIT OFFLINE (DEVICE-FATAL) 
: 4315 [4] ERRHRD (34, EGH_30, EMS_30); ' UNIT AVAILABLE 

: 4316 133 ERRHRD (35, EGH_30, EMS_30); ' MEDIA FORMAT ERR 

: 4317 6] ERRHRD (36, EGH_30, EMS_30); ' WRITE-PROTECTED 

: 4318 [7] ERRHRD (37, EGH_30, EMS_30); ! DEVICE COMPARE ERROR 

: 4319 [8] ERRHRD (38, EGH_30, EMS_30); ' DATA ERROR 

: 4320 [9] ERRHRD (39, EGH_30, EMS_30); ' HOST BUFFER ACCESS ERROR 

: 4321 [10] : ERRHRD (40, EGH_30, EMS_30); ' CONTROLLER ERROR 

: 4322 (11) : ERRHRD (41, EGH_30, EMS_30); ' DRIVE ER 

: 4323 COUTRANGE] : ERRHRD (30, EGH_30, EMS_30); : 

: t35¢ TES; 

: $358 HARD_ERR (1); ' INCREMENT HARD ERROR COUNT FOR CURRENT UNIT 
: 4328 END; 

: 4329 


4330 END 





CZRCD3 
v01.0 


= 
Whonron 
&% 


SSssssssssss 


2S Be 
WVU & & & 


Ll 7 


11-Jul-1983 98:44:3 
8-Jul-1983 17:43:5 


ELSE = 1/0 WAS SUCCESSFUL 


SEQ 0295 
VAX-11 Bliss-16 V3-555 


UPDATE 1/0 STATISTICS 
IF HOST IS DOING WRITE-COMPARES 


THEN 
SAVE 1/0 PACKET OR DO WRITE-CHECK 


a 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (39) 


CZRCDAO RC25 DISK EXERCISER 
MULTI=-DRIVE SUBTEST ROUTINES 

4331 ELSE 

4332 BEGIN 

4333 

4334 MD_TALLY (); 

$ee2 IF BIT_TST (SWP_FLAGS, SWF _HWC) 

4337 HOST_WRT_CHK (); 

4338 

4339 END; 

4340 

4341 IF .SWEEP_FLAG EQLU TRUE 

4342 THEN 

4343 SWEEP (); 

4344 Q10 C.CCTLRJ = .Q10 C.CCTLRI = 1; 

4345 

4346 END; 

.SBTTL 

010146 sacnig ™ 
112737 000001 000630" MOVB 
004737 000000V JSR 
013700 9000006 MOV 
116037 000016 000000G MOVE 
042737 177740 0000006 BIC 
016001 000016 MOV 
006201 ASR 
006201 ASR 
006201 ASR 
006201 ASR 
006201 ASR 
042701 174000 BIC 
010137 000000G MOV 
013700 0000006 MOV 
001521 BEQ 
020027 000003 CMP 
001013 BNE 
104455 TRAP 
000023 WORD 
0000006 WORD 
0000006 . WORD 
013700 000000G MOV 
112760 000004 0000006 MOVB 
104451 a 
005300 1$: DEC 
020027 000012 CMP 
101003 BHI 
006300 ASL 
066007 000010° ADD 
104456 3$: TRAP 
000036 WORD 
0000006 WORD 
0000006 WORD 
000461 BR 
104456 4$: TRAP 


i SWEEP_FLAG IS STILL TRUE 


HEN 
DEALLOCATE BUFFER(S) AND RETPKT(S) 
DECREMENT NO. OF OUTSTANDING QI0S 


ROUTINE IO_RETPKT 


IO.RETPKT MULTI-DRIVE SUBTEST ROUTINES 


R1,-(SP) 
#1,SWEEP.FLAG 
ye ta 


R 
#174000,R1 
R1,SB.CODE 
ST.CODE ,RO 
15$ 

RO,#3 

1$ 

55 
2 


3 
EGD.19 
EMS.19 


L$LUN,RO 
#4,DUR(RO) 
51 

16$ 

RO 

RO,#12 

3$ 

RO 
P.AAB(RO) ,PC 
56 

36 

EGH.30 
EMS.30 

14$ 
56 


; Case dispatch 


1117 


a 7 
SEQ wee 


E 
CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 VAX-11 Bliss=-16 V3-555 rage 112 
MULTI=DRIVE SUBTEST ROUTINES 8-Jul-1983 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (39 


ANT ANT 


= 
Ww 
So 


7 
G 
M 
‘ 
6 
0 
G 
M 
4 
6 
2 
G 
4 


3 
E 
E 
1 
5 
4 
E 
E 
1 
5 
4 
EGH. 
EMS. 30 
14$ 

56 

3 


000001 : 
0000006 PC, “HARD. ERR 
(SP) + 


000000V 15$: J PC ,MD.TALLY 

000100 0000006 1 #00, SwP. FLAGS 

000000v PC ,HOST.WRT.CHK 
123727 000630° 000001 : SWEEP. FLAG, #1 





SEQ hea’ © 
ceaces CZRCDAO_RC25 DISK EXERCISER 244: VAX=11 Bliss=-16 V3-555 page 113 


MULTI“DRIVE SUBTEST ROUTINES 8 1 2:43: DUA2: CDOUCETTE .CZRCDICZRCDS.SRC33 (39 


000000v : 4343 
0000006 17$: R_RO : 4344 
0000006 o(r6) 


4274 


: Routine Size: 129 words, Routine Base: SCODE$ + 12072 
; Maximum stack depth per invocation: 3 words 


.PSECT $PLIT$, RO, D 
: CASE Table for I10.RETPKT+0136 
[4$) 





CZRCD3 
v01.0 


. 
° 
. 
° 
2 
e 
. 
° 
° 
° 
7 
° 
a 
* 
. 
° 
. 
° 
. 
° 
2 
° 
. 
° 
. 
° 
. 
*° 
o 
° 
o 
° 
© 
os 
. 
° 
a 
° 
. 
o 
o 
° 
. 
o 
. 
° 
o 
° 
. 
° 
. 
° 
- 
a 
2 
° 
° 
e 
. 
” 
+ 
° 


012702 


; Routine Size: 
; Maximum stack 





11-Jul-19 


SEQ 0298 
83 VAX=-11 Bliss=-16 V3-555 p 
88-Jul-1983 


CZRCDAO RC25 DISK EXERCISER a 
_DUA2: CDOUCETTE .CZRCDICZRCD3. SRC; 3 (40) 


MULTI=DRIVE SUBTEST ROUTINES 
ROUTINE FSET_UPAR : NOVALUE = 


'¢ 

; THIS ROUTINE IS CALLED BY IO_RETPKT AND OTHERS TO SEARCH THE CURRENT 

} CONTROLLER STATUS TABLE (CST) FOR THE PLATTER ADDRESS WHICH IS 
CONTAINED IN THE CURRENT RETURN PACKET. WHEN FOUND, THE OFFSET INTO THE 
ae TO SET_UPAR, WHICH SETS UP CURRENT UNIT@RELATED 


IMPLICIT INPUTS: 
RP_ADDR = ADDRESS OF CURRENT RETURN PACKET 
CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST 


74 


08:44:52 
17:43:57 


BEGIN 
a FROM (0 + OF_UN) TO (3 + OF_UN) DO ! FOR EACH UNIT IN CST 


— C.OFFSET, P_ADDR] EQLU .RP_ADDR CPLATJ : ew UNIT NUMBER MATCHES CST ENTRY 
BEGIN > 


SET_UPAR (.OFFSET); ! SET UP UNIT=RELATED DATA 
RETORN; ! DONE 


END; 
! CST UNIT SEARCH LOOP 
! ROUTINE FSET_UPAR 


-SBTTL FSET.UPAR MULTI-DRIVE SUBTEST ROUTINES 
-PSECT SCODE$, RO 
0000006 FSET.UPAR: 
JSR 


R1,$SAVE3 
000003 #3,R2 


R2,R1 


CST.ADDR,R1 
RP.ADDR,RO 


R 
(R1) ,R3 
R3_10(RO) 


1$: 
0000006 
0000006 
000010 


; OFFSET,* 
0000006 


R2,-(SP) 
PC,SET.UPAR 
(SP)+ 
C 
: R2 
000006 R246 
1$ 
PC 
SCODES + 12474 


; OFFSET 
: OFFSET,* 


25 words, Routine Base: 
depth per invocation: 6 words 


=—Q230O23 On) 
Wwe 
NO 


c 8 


SEQ 0299 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 + 44:52 VAX-11 Bliss-16 V3-555 Pa oye 116 
MULTI-DRIVE SUBTEST ROUTINES 8-Jul=1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (41 


ROUTINE MD_TALLY : NOVALUE = 


+ 


THIS mule IS CALLED wr IO_RETPKT FOR ALL 1/0 TRANSFER RETURN 
PACKETS WITH ‘‘SUCCESS'’ STATUS CODES. ITS PURPOSE IS TO UPDATE ALL THE 
APPROPRIATE STATISTICAL SHIELDS FOR THE CURRENT UNIT. A CHECK IS ALSO 
MADE ON THE TOTAL NUMBER OF BYTES TRANSFERRED THUS FAR; IF THE 
OPERATOR-SPECIFIED LIMIT HAS BEEN REACHED, THEN THE UNIT IS REMOVED 
FROM CURRENT PASS TESTING. 


IMPLICIT INPUTS: 
RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET 
T_ADDR = ADDRESS OF THE CURRENT UNIT'S STATISTICS BLOCK (TALLY) 
USLUN = CURRENT (DRS) UNIT NUMBER 


BEGIN 
IF .RP_ADDR CENDCOD] EQLU (OP_RD + OP_END) ! IF ENDCODE IS READ 
THEN i THEN 
BEGIN 
UPD 10¢ ar _ADDR CREAD_LOJ ' INCREMENT NO, OF READS 
T_ADDR LO] = .T_ADDR ter i io} + .RP _ADDR CBCNT_ L0}; ! UPDATE COUNT 
Ov rR. rs “ADDR cen L0}); ' CHECK FOR PrELD OVERFLOW 
END 
ELSE ! ELSE ENDCODE IS WRITE 
BEGIN 


UPD_IOC_(T_ADDR CWRIT_LOJ ! INCREMENT pea OF WRITES 


T_ADDR (BW7LOJ = .T_ADDR tew i io? + -RP_ADDR CBCNT 10); ' UPDATE BYTE COUNT 
Ove _CHK tT “ADDR (BW7L0}); ‘CHECK FOR FIELD OVERFLOW 
END; 
IF .CPT C.LSLUNI ' IF UNIT IS STILL UNDER TEST 
THEN i THEN 
XFR_CHK (); i CHECK MBYTES XFR'D AGAINST LIMIT 
END; ROUTINE MD_TALLY 
.SBTTL MD. TALLY MULTI-DRIVE SUBTEST ROUTINES 
MD. TALLY: 
MOV RI. -(SP) : 4378 
0000006 MOV P- ADDR, RO ; 43% 
000014 000241 CPB MEtRO) #241 
MOV T.ADDR,=(SP) : 4400 
000001 MOV ras 
0000006 JSR PC; UPD. 10C 
MOV iF ADDR,R1 3 4401 
0000006 MOV P.ADDR,RO 
000020 000014 ADD 20; PACE 
000014 


MOV (SP) : 4402 
BR os 


CZRCD3 
V 


013746 


3 Routine Size: 
3 Maximum stack 


CZRCDAO _RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


1$: 


0000006 
000020 000022 
000022 

00006 
0000006 
000001 0000006 


0000006 
3$: 


54 words, Routine Bae: 


depth per invocation: 4 wor 


11-Jul-1983 
8-Jul-1983 


T.ADDR,=(SP) 
#4, (SP) 


RP.ADDR, RO 
20(RO) ,22(R1) 
#22, (SP) 


R1, (SP) 
PC,OVF .CHK 
LSLUN,R 
#1,CPT(RO) 
3$ 

PC ,.XFR.CHK 


(SP)+, (SP)+ 
(SP)+,R1 
PC 


SCODES + 12556 


SEQ 0300 


VAX-11 Bliss-16 V3-555 


_DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 Gi 





E 8 
adag + 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 98:4 44:52 VAX-11 Bliss=-16 V3-555 Page t 118 
v01.0 MULTI=DRIVE SUSTEST ROUTINES 8-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (42 


ROUTINE HOST_WRT_CHK : NOVALUE = 


+ 


THIS ROUTINE IS CALLED FROM IO_RETPKT FOR ALL 1/0 TRANSFER RETURN 
PACKETS WITH "‘SUCCESS’’ STATUS CODES. BUT ONLY IF THE HOST WRITE-COMPARE 
OPTION WAS SELECTED BY THE OPERATOR 


IF THE CURRENT RETPKT BEING PROCESSED IS A WRITE FUNCTION, THEN THE 
PACKET INDEX (RP INDX) 1S SAVED IN THE CONTROLLER'S RETURN PACKET SAVE 
AREA (RP_SAVE). OTHERWISE, THE PACKET IS A s SSOCIATED 
WRITE PACKET IS REMDVED FROM THE SAVE AREA, AND A D 
COMPARISON IS PERFORMED ON THE TWO I/O BUFFERS. ANY DIFFERENCES 
ENCOUNTERED RESULTS IN THE DECLARATION OF A HARD ERROR. 


IMPLICIT INPUTS: 
RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET 
RP_INDX = INDEX OF THE CURRENT RETURN PACKET 
RPS_X1, RPS_X2 = STARTING / ENDING INDECES OF THE CURRENT 
CONTROLLER'S RETPKT SAVE AREA (RP_SAVE) 


ee TD ed hee 


BEGIN 
LOCAL 

BUF FW, 

INDEX = SIGNED WORD; 
IF .RP_ADDR CENDCOD] EQLU (OP_WRT + OP_END) ! IF WRITE OPERATION 
ag ! THEN 


INCR INDEX FROM .RPS_X1 TO .RPS_X2 DO ! LOOK FOR SPARE ENTRY IN 
BEGIN ; CONTROLLER'S RP_SAVE 


IF _.RP_SAVE C. INDEX] LSS 0 ! IF SPARE SLOT FOUND 
THE ! THEN 
BEGIN 
RP ays AS INDEX] = .RP_INDX; : ee INDEX OF WRITE RETPKT 


! ADDR OF 1/0 BUFFER DESCRIPTOR 


EXTTL 
END; 
END; 
SWEEP_FLAG = FALSE; ' DON'T CALL SWEEP FROM IO_RETPKT 
END 
ELSE ' ELSE ENDCODE IS READ 
BEGIN 
IF (INDEX = RPS_REM ()) GEQ 0 ! IF ASSOCIATED WRITE PACKET IS FOUND 
BEGIN : 


BUFFW = RETPKT C.INDEX, BUFF _0); ! ADDR OF ADDR OF WRITE 1/0 BUFFER 
IF CMP_DATA (.BUFFW) EQLU FATLURE ! COMPARE DATA IN BOTH BUFFERS. IF FAILURE 





F 8 


SEQ 0302 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 99:45:3 VAX=11 Bliss=16 V3=-555 page 119 
v01.0 MULTI=DRIVE SUBTEST ROUTINES B-Jul=1983 17:43:5 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (42 


THEN ! THEN 
BEGIN 


ERRHRD (42, EGH_30, EMS_42); ! "1/0 REQUEST FAILED*’ 
HARD_ERR (1); ! INCR HARD ERROR STATISTIC 


END; ! IF COMPARE ERROR 


PUT_IO_BUFF (.BUFFW); ! RETURN WRITE 1/0 BUFFER TO POOL 
PUT-RETPKT (. INDEX); ! PUT BACK WRITE RETPKT 


END; ! IF ASSOCIATED WRITE RETPKT WAS FOUND 
END; ! IF ENDCODE WAS READ 
END; ! ROUTINE HOST_WRT_CHK 


~SBTTL HOST.WRT.CHK MULTI-DRIVE SUBTEST ROUTINES 
0000006 a 


R1,$SAVE2 : 
0000006 RP.ADDR,RO : 
000014 000242 AOR? Ae 
0000006 RPS.X1,RO ; *, INDEX 
RO ; INDEX 
BR 2$ 

0000006 : RP. SAVE (RO) ; *( INDEX) 
0000006 0000006  adtaeaceataateaaees ; *,*( INDEX) 

: RO ; INDEX 
0000006 + {alta ; INDEX,* 
000630" : SWEEP. FLAG 


PC 
000000v : PC,.RPS.REM ; 
RO,R2 ; *, INDEX 


; INDEX,* 
000060 
0000006 PC ,BLSMUL 
0000246 #RETPKT+24,RO 

; *,BUFFW 


RO,R 
R1,(SP) ; BUFFW,* 
000000v aaa 


RSSEOKEVSSRVARNERS 
sssseees 
parts = 


G 
000001 
0000006 


: ‘ ; BUFFW,* 
0000006 PC,PUT.10.BUFF 
R2, (SP) 


; INDEX,* 


3a oe 4 9 2 1 2 


SSSseesseeeseess 





CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 
v01.0 MULTI-DRIVE SUBTEST ROUTINES 8-Jul-1983 


004737 0000006 JSR PC ,PUT.RETPKT 
022626 cMP (SP)+, (SP)+ 
000207 6$: RTS PC 


; Routine Size: 59 words, Routine Base: SCODE$ + 12732 
> Maximum stack depth per invocation: 7 words 


SEQ oe 
VAX-11 Bliss=16 V3-555 cage 120 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (42 


4472 
4419 





CZRCD3 
v01.0 


Be Be Be Be Se Se Be Be Ss Se Be Be Se Ge Be Ge Be Be Se Be Be Ge Ge Ge Ge Ge Ge Se Fe Se Ge Be Be Be Be Se Be Be Se Se Be Be Ge Se Se Ge Fe Se Se Ge Ge Ge Se FH Fe Se we 


4511 


NONINID oo 
MFWN —O OONOUEwr 


H 8 
SEQ a * 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 99:4 44:52 VAX-11 Bliss-16 V3-5 Page 121 
MULTI-DRIVE SUBTEST ROUTINES 8-Jul-1983 17:43:57 DUA2: CDOUCETTE. CaReDICZRCDS. SRC33 (43 


ROUTINE CMP_DATA (BUFFW) = 


'¢ 

; THIS ROUTINE IS CALLED x! ake WRT_CHK TO PERFORM THE ACTUAL WORD-BY- 
WORD COMPARISON BETWEEN THE READ BUFFER te aw IN THE CURRENT RETURN 
PACKET AND ITS ASSOCIATED MURITE BUFFER. A VALUE OF “'SUCCE : 

~ Tet § IF THE TWO BUFFERS ARE IDENTICAL. OTHERWISE, ‘‘FAILURE’’ IS 


INPUTS: 
BUFFW = ADDRESS OF THE WRITE BUFFER DESCRIPTOR 


IMPLICIT INPUTS: 
RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET (READ OPERATION) 


BEGIN 

LOCAL 
RESULT : WORD, ! SUCCESS / FAILURE 

DO : WORD, ! WRITE BUFFER DESCRIPTOR (WORD 0) 

WBD1 : WORD, ! WRITE BUFFER DESCRIPTOR (WORD 1) 
RBDO : WORD, ! READ BUFFER DESCRIPTOR (WORD 0) 
RBD1 : WORD, ! READ BUFFER DESCRIPTOR (WORD 1) 
DISP : WORD ! 4K PAGE DISPLACEMEN 
PAF : WORD, ! PAGE ADDRESS FIELD 
COUNT : WORD; ! BUFFER WORD COUNT 

RESULT = SUCCESS; 


ASSUME BLUE SKY 

WRITE BUFFER DESCRIPTOR (WORD 0) 
WRITE BUFFER DESCRIPTOR (WORD 1) 
READ BUFFER DESCRIPTOR (WORD 0) 
READ BUFFER DESCRIPTOR (WORD 1) 


meee © = oe re tas? 


WBD1 = .(.BUFFW + 2); 
RBDO = = “RP ADDR teuFe 0]; 
RBD1 = Re Avon CBUFF-1); 


IF .MEM, IF SYSTEM HAS MEMORY MANAGEMENT 
THEN THEN 

BEGIN 

DISP = «uB00 AND %0°17777"; WRITE BUFFER DISPLACEMENT 

PAF = (.WBDO 2 AND %0° ‘soo; PAGE ADDRESS FIELD 


KIPARG 2 = WO eD1 * 10) OR. 
WBDO = %0°100000° OR Dish: 


DISP = .RBDO AND 20° 17777°; 
PAF = (.R _ < Pe AND 20° 1600"; 


LOAD PAR4 
WRITE BUFFER VIRTUAL ADDRESS 


READ BUFFER OIL CERES 
os P ADDRESS FIELD 


KTPARS = * 10) OR .PAF OAD PAR 
RBDO = 70° 120000" OR .DISP; READ BUFFER VIRTUAL ADDRESS 
END; 
IF (COUNT = .RP_ADDR CBCNT_LOJ / 2) NEQU 0 ! IF WORD COUNT IS NON-ZERO 
sag ! THEN 


saeeg Oe 1 TO .COUNT DO FOR EACH WORD IN BUFFERS 


IF ..WBDO EQLU ..RBDO 


IF WORDS COMPARE 0.K. 


CZRCO3 
v01.0 


CZRCDAO RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


11-Jul-19 
8-Jul-19 


sii SEQ 0305 
VAX-11 Bliss-16 V3-555 Pa age 122 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRC; 3 (43 


THEN 


! ADVANCE WRITE BUFFER ADDRESS 
! ADVANCE READ BUFFER ADDRESS 
: iF — HAS MEMORY MANAGEMENT 


IF (.WBDO AND %0°17777") EQLU 0 : 


BEGIN 


WBDO = %0°100000°; 
KTPAR4 = .KTPAR4 + %0°200°; 


i" BUFFER CROSSES 4K PAGE BOUNDARY 


RESET VIRTUAL ADDRESS 


i ADVANCE PAR TO NEXT 4K PAGE 


IF (.RBDO AND %0°17777") EQLU 0 ! 
THEN ; 


BEGIN 


RBDO = %0°120000'; 
KTPARS = .KTPARS + %0°200'; 


END; 
END; 
END 
ELSE 
BEGIN 


RESULT = FAILURE; 
EXITLOOP; 


END; 
END; 
END; 
IF .MEM_MGMT 
THEN 
BEGIN 


KTPAR4 
KTPARS 


END; 
RETURN .RESULT; 
END; 


%0°1000' ; 
%0°1200°; 


-SBTTL 


i BUFFER CROSSES 4K PAGE BOUNDARY 


RESET VIRTUAL ADDRESS 


' ADVANCE PAR TO NEXT 4K PAGE 


! END - IF MEMORY MANAGEMENT 


! OTHERWISE - COMPARE ERROR 


! FAILED 
! NO NEED TO CONTINUE 


! WORD COMPARE LOOP 

! IF WORD COUNT IS NON-ZERO 

! IF SYSTEM HAS MEMORY MANAGEMENT 
! THEN 


! RESTORE PAR'S 


! ROUTINE CMP_DATA 


CMP.DATA MULTI-DRIVE SUBTEST ROUTINES 





J 8 


SEQ 0306 

CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-19 : VAX-11 Bliss=-16 V3-555 Pa 
v01.0 MULTI-DRIVE SUBTEST ROUTINES 8-Jul-19 243: _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 3) 
004137 
ai -Ssaye> 

012746 #1,-(SP * ,RESULT 
BUF FlW,WBDO 


FFW,* 


rates 


* ,RBDO 
*,RBD1 


176177 


; PAF,* 


RO.R4 
172350 R4.9#172350 
000010 MOV R2.10(SP : DISP,WBDO 
00000 000010 #160000 10¢SP) : 
000006 MOV 6(SP R?2 
160000 180060. R2 
000006 MOV 6(SP), ($P) 
177772 SP) 
0000006 PC. BL SSHF 
MOV RO.R 
176177 #176177,R3 
R5,RO 


SESRNSSRNSEVSE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000146 
000152 
000156 
000162 
0001 
000170 
000174 
000176 
0002 


R 
RO 
RO 
RO 
R3,R4 
RO,R4 

172352 Rs, +ah172352 

00001 MOV 10(S 

000010 Re 50000, 10(SP) 

#6,SP 
20(R1),=(SP) 
#2 .-(SP) 
PC,BLSDIV 
(SP)+, (SP)+ 


és 


; DISP,RBDO 
; *,RBDO 


; COUNT 
; J 
000445 B 8 
027676 000004 000002 : a4(SP) ,a2(SP) ; WBDO,RBDO 





k 8 
SEQ 0307 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 98:63'36 VAX=11 Bliss=-16 V3=-555 page 124 
v01.0 MULTI=DRIVE SUBTEST ROUTINES B-Jul-1983 17:43:5 _DUA2: CDOUCETTE..CZRCDICZRCD3.SRC53 (435 


BN 4$ 
000004 ; *,WBDO 
000002 # ; *,RBDO 
#1, (SP) : 


017777 000004 : #17777 ,4(SP) ; *,WBDO 


100000 000004 #-100000,4 (SP) ; *,WBDO 
000200 172350 #200, a#172350 : 
017777 000002 : #17777,2(SP) 3 *,RBDO 


BN $ 
120000 000002 #~60000,2(SP) : *,RBDO 
000200 172352 #200,a#1 7235 : 


BR ; 
000006 4$: age ; RESULT 


B 
5$: R1 ; | 
R1,R0 ; I,COUNT 


6$: #1,(SP) 


#1000,a4172350 
#1200,a#172352 ; 
7$: MOV ot a eg ; RESULT,* 


; Routine Size: 143 words, Routine Base: $CODE$ + 13120 
3: Maximum stack depth per invocation: 14 words 
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SEQ 0308 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss-16 V3-555 Page 125 
v01.0 MULTI-DRIVE SUBTEST ROUTINES B-Jul-1983 9303:89 _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 rs 


ROUTINE SWEEP : NOVALUE = 
'¢ 


THIS ROUTINE IS CALLED FROM IO_RETPKT AND OTHERS TO DEALLOCATE THE 
RESOURCES ASSOCIATE TH THE CURRENT RETURN PACKET. THIS INCLUDES THE 
AND THE 1/0 B ION, IF THE HOST IS 


IMPLICIT INPUTS: 
RP_ADDR = ADDRESS OF CURRENT RETURN PACKET 
RP_INDX = INDEX OF CURRENT RETURN PACKET 


i 

i 

i 

i 

i 

i 
DEALLOCATED. 
i 

' 

i 

le 
BEGIN 


LOCAL 
INDEX : SIGNED WORD; 


IF (.RP_ADDR CENDCOD] AND OP_MSK) EQLU OP_RD ! IF READ OPCODE OR ENDCODE 
THEN ! THEN 
BEGIN 
IF BIT_TST (SWP_FLAGS, SWF _HWC) ! IF HOST IS DOING WRITE-COMPARES 
THEN ! THEN 
BEGIN 
IF CINDEX = RPS_REM ()) GEQ 0 ! IF ASSOCIATED WRITE RETPKT IS FOUND 
TEN cin ! THEN 


PUT_IO_BUFF (RETPKT C.INDEX, BUFF_0J); ! RETURN WRITE I/O BUFFER TO POOL 
PUT_RETPKT (. INDEX); ! RETURN WRITE PACKET TO POOL 


END; 
END; 
END; 


PUT_IO_BUFF (RP_ADDR (BUFF _0J); ! RETURN CURRENT 1/0 BUFFER TO POOL 
PUT_RETPKT (.RP_INDX); ! RETURN CURRENT RETPKT TO POOL 


END; ! ROUTINE SWEEP 
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SWEEP A TE-SRIVE SUBTEST ROUTINES 


0000006 M R 3 
000014 


177600 
000041 


E 1$ 
000100 90000006 / 7100. SUP FLAGS . 





SEQ 0309 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-198 : VAX-11 Bliss=16 V3-555 age 6 
v01.0 MULTI=DRIVE SUBTEST ROUTINES 8-Jul-198 243: DUA2: CDOUCETTE..CZRCDICZRCD3.SRC;3 (44 


000034 000000v PC,RPS.REM 3 4632 
000040 MOV RO,R1 ; *, INDEX 
000042 002416 1$ 
000044 MOV ; INDEX,* 4636 
000046 000060 
000052 004737 0000006 PC ,BLSMUL 

0000246 #RETPKT+24,RO 


0000006 PC.PUT 10. BUFF 


; INDEX,* 
0000006 PC PUT. eRETPKT 


0000006 
000024 #24, 
PC,PUT.10.BUFF 


0000006 
0000006 RP. INDX, (SP) 
0000006 oem ree 


(SP)+,R1 
PC 


; Routine Size: 45 words, Routine Base: $CODE$ + 13556 
: Maximum stack depth per invocation: 4 words 





Nn 8 
SEQ sw 
CZRCD3 CZRCDAO 'RC25 DISK EXERCISER 11-Jul-1983 99:4 44: VAX-11 Bliss-16 V3-555 rege 127 
v01.0 MULTI-DRIVE SUBTEST ROUTINES 8-Jul-1983 1 -DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (45 


ROUTINE RPS_REM = 
ty 
i THIS ROUTINE SEARCHES THE CURRENT CONTROLLER'S RP_SAVE AREA FOR A 
i RETURN PACKET WHOSE COMMAND REFERENCE NUMBER (CRNY IS 
i CRN OF THE CURRENT RETURN PACKET. (I.E. SEARCHING 
i OPERATION ASSOCIATED WITH THE CURRENT READ OPERATION). OUND, TH 
i RP_SAVE ENTRY IS CLEARED (TO -1) AND THE RETPKT INDEX OF THE WRITE 
OPERATION IS RETURNED TO THE CALLER. 
i IMPLICIT INPUTS: 
i RP ADDR = ADDRESS OF THE CURRENT RETURN PACKET 
RPS_X1, RPS_X2 = STARTING / ENDING INDECES OF THE CURRENT 
) CONTROLLER'S RP_SAVE AREA 
i OUTPUTS: 
i INDEX (VALUE OF THIS ROUTINE) = INDEX OF THE RETPKT CONTAINING 
! A CRN WHICH IS ONE LESS THAN THE CURRENT 
BEGIN 
LOCAL 
INDEX : SIGNED WORD, 
TEMP : SIGNED WORD; 
INDEX = =1; ! ASSUME NOT FOUND 
INCR COUNT’ FROM .RPS_Xx1 TO .RPS_X2 DO i FOR EACH ENTRY IN RP_SAVE 
IF (TEMP = .RP_SAVE [.COUNT]) GEO 0 ! IF THIS IS A VALID RETPKT INDEX 
THEN i THEN 
BEGIN 
IF .RETPKT C.TEMP, CRF_LOJ EQLU (.RP_ADDR CCRF_LO] - 1) ! IF CORRECT CRN 
THE i THEN 
BEGIN 
INDEX = , TEMP; ! INDEX TO BE RETURNED 
RP_SAVE [.COUNT) = i INIT ENTRY 
EXTTLOOP; i DONE 
END; 
END; ! IF VALID RETPKT INDEX 
END; ! RP_SAVE ENTRY LOOP 
RETURN . INDEX; 


END; ! ROUTINE RPS_REM 
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-SBTTL es rey MULTI-DRIVE SUBTEST ROUTINES 
0000006 RPS.REM: JSR aves 


000000 004137 
000004 012704 177777 MOV rity > *, INDEX 
000010 013702 0000006 MOV RPS. a, R2 + *, COUNT 





SEQ 0311 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 244: VAX-11 Bliss-16 V3-555 age 
v01.0 MULTI=DRIVE SUBTEST ROUTINES 343: DUA2: CDOUCETTE.CZRCDICZRCD3. SRC; 3 (45 


ab * , COUNT 

0000006 1$: P. y : #(COUNT), TEMP 
: TEMP,* 
000060 
0000006 LSMUL 
(SP)+, (SP)+ 

0000006 RP.ADDR,R1 
000004 4(R1),R1 


R 
0000046 MP aegis 


R3,R4 ; TEMP, INDEX 
000377 0000006 #377 .RP. SAVE (R2) = #,* (COUNT) 


2s: Re ; COUNT 
0000006 Gs APE.ES ; COUNT,* 


3$: MOV > Sg ; INDEX,* 


; Routine Size: 36 words, Routine Base: $CODE$ + 13710 
: Maximum stack depth per invocation: 8 words 





c 9 


wher 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44 VAX-11 Bliss-16 V3-5 129 
v01.0 MULTI-DRIVE SUBTEST ROUTINES 8-Jul-1983 ia ~DUA2: CDOUCETTE. CoRCDICZRCDS. SRC;3 i 


ROUTINE DR_RETPKT : NOVALUE = 


'¢ 
THIS ROUTINE IS CALLED "7 ay’ RETPKT FOR ALL PACKETS ORIGINATING AT 
THE “DRIVER’’ PORTION OF PROGRAM. THIS eport: PACKETS DESCRIBING 
FATAL DEVICE ERRORS AND INDIVIDUAL COMMAND TIMEOUTS. 


FOR FATAL DEVICE ERRORS, THIS ROUTINE aT ALL RESOURCES HELD BY 
ONTROLLER IS MARKED OFFLINE IN ITS CST, AND ALL 
E DROPPED. IF THE RETURN PACKET 


' 

5 

‘ 

' 

i] 

i 

! 

' 

RIBES 
APPROPRIATE UNIT. 
IMPLICIT INPUTS: 
RP_INDX ~ INDEX OF THE CURRENT RETURN PACKET 

RPTADDR = ADDRESS OF THE CURRENT RETURN PACKET 

RPS_X1 = STARTING / ENDING INDECES OF THE CURRENT CONTROLLER'S 
RETPKT SAVE (RP SAVE) AREA 

CST_ADDR = ADDRESS. OFTHE CURRERT CONTROLLER'S CST 

CCTER = CURRENT CONTROLLER NUMBER 


BEGIN 


LOCAL 
INDEX : SIGNED WORD; 


IF .RP_ADDR CMESTYP] EQLU MT_FATAL ! IF FATAL CONTROLLER ERROR 
THEN ! THEN 
BEGIN 
PUTA_BUFF (); ' RELEASE ALL 1/0 BUFFERS HELD BY CONTROLLER 
INCH COUNT FROM «RPS_X1 TO .RPS_X2 DO ! FOR EACH ENTRY IN CONTROLLER'S RP_SAVE 
IF (INDEX = .RP_SAVE C.COUNT]) GEQ 0 ! IF VALID RETPKT INDEX 
ae ! THEN 


PUT_RETPKT (. INDEX); ' RETURN RETPKT TO POOL 
RP_SAVE C.COUNT) = -1; ! INIT ENT 


END; 
END; ! RP_SAVE ENTRY LOOP 


Q10 C.CCTLRI = 0; ! CLEAR NO. OF OUTSTANDING QI0S 
CST_ADDR [STATE] = OFFLINE; ! MARK CST OFFLINE 

DROP_CTLR (.CCTLR, DU_ FATAL); ! DROP CONTROLLER'S UNITS 
PUT_RETPKT (.RP_ INDX)? ! PUT BACK RETPKT 


END 
ELSE ! ELSE = COMMAND TIMEOUT 
BEGIN 


FSET_UPAR_(); ! SET UP UNIT-RELATED PARAMETERS 
ERRHRD (43, EGH_30, EMS_43); ! "1/0 REQUEST FAILED’ 
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. 9 
SEQ 0313 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss-16 V3-555 Pa age 130 
v01.0 MULTI-DRIVE SUBTEST ROUTINES 8-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC33 (46 


HARD_ERR (1); ! INCREMENT HARD ERROR STAT FOR UNIT 
SWEE : i RETURN RESOURC 
Q10 C.CCTLRI = .Q10 C.CCTLRI = 1; i DECREMENT NO. OF OUTSTANDING Q10S 


END; 
! ROUTINE DR_RETPKT 


-SBTTL OR.RETPKT MULTI-DRIVE SUBTEST ROUTINES 


DR.RETPKT: 
JSR RI. SSAVE3 
ADDR, RO 
mR RO) RO 
ora 7Gts RO 
RO,#60 
PC .PUTA. BUFF 


PS.X2,R3 ; 
PS.X1,R1 ; *, COUNT 
1 ; COUNT 


2$ 
RP SAVE (R1) .R2 ; *(COUNT), INDEX 
3 : INDEX,* 
0000006 PC PUT .RETPKT 
000377 0000006 MOVB #377 .RP. SAVE (RI) ; *,%(COUNT) 
+ 


; COUNT 
; COUNT,* 


0000006 

0000006 10(R1) 
000000G MOV CST.ADDR 
100000 000002 BIC #100000, shoo) 


HH ny zt 
0000006 PC,DROP.CTLR 
0000006 RP. INDX, (SP) 
0000006 — 


BR 4$ 
012474" : J * latices 


43: 


: Routine Size: 70 words, Routine Base: $CODE$ + 14020 
+ Maximum stack depth per invocation: 7 words 





—E 9 
SEQ 0314 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:4 VAX=-11 Bliss=16 V3-555 Pa age 131 
MULTI=DRIVE SUBTEST ROUTINES B-Jul-19835 17:4 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (47 


ROUTINE DRV_TIMCHK : NOVALUE = 


+ 


THIS ROUTINE IS CALLED ONCE PER SECOND FROM EITHER THE MULTI-DRIVE 
E) 4 DM EXERCISER i ae a 
TIMING COUNTS FOR AL 


COMMAND TIMER y+ REACHES ZERO CAN MEAN ONE OF TWO ae 2 IF THE 
THE ENVELOPE DESCRIPTOR OF THE TIMED 
ONTROLLER-OWNED, THEN THE CONTROLLER 
DECLARED _AND CONT TOED 


E 
i THE ENVELOPE DESCRIPTOR S FOR THE ED. TC 
FOUND OVERWRITTEN WITH ANOTHER DESCRIPTOR), THEN ONLY THE 
COMMAND 1S ASSUMED LOST. 


IN EITHER CASE, A RETURN PACKET IS SET uP WHICH DESCRIBES THE 
CONDITION, AND ‘SENT’ TO THE ‘EXERCISER’ 


BEGIN 
LOCAL 
mn. INDEX : SIGNED WORD, ! MSCP ENVELOPE INDEX 
ADDR, ! MSCP ENVELOPE ADDRESS 
CR ADDR, ! COMMAND RING (C-RING) ADDRESS 
TYPE : WORD; ! TYPE OF ERROR 
INCR CNTLR FROM 0 TO (MAX_CTLR = 1) DO ! FOR EACH CONTROLLER 
BEGIN 
SET_CPAR (.CNTLR? ! SET UP _CONTROLLER-RELATED DATA 
IF [CST_ADDR LSIATED FQLU ONLINE ! IF CONTROLLER IS ONLINE 
THEN aeate ! THEN 


on acoal FROM .OCL_X1 TO .OCL_X2 DO ! FOR EACH OUTSTANDING COMMAND ENTRY 


4 (M_LINDEX = .OUTC_LIST C.COUNT]) GEQ 0 : — HOLDS VALID MSCP INDEX 
BEGIN a 


OUTC_TIMR C.COUNT] = .OUTC_TIMR C.COUNT] - 1; : DECREMENT gitry TIMER 
ce jOurc. TIMR C.COUNT] EQLU 0 (—_— TIMED OUT 


BEGIN 


OUTC_LIST C.COUNT] = ! KILL OUTC ENTRY 
M_ADBDR = MSCP_ENV + (. ne INDEX * ENV_LEN * 2); ! CALCULATE MSCP oe ADDRESS 
CRA = = .DCT_ADDR CCR ~BEGI; ! GET START OF C-RING 
TYPE = TIMEOUT; ! ASSUME COMMAND TIMED OUT 
INCR SLOT" FROM 1 TO CRING_LEN DO ! FOR EACH CRING SLOT 





CZRCD3 
v01.0 


F 9 
CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:5 
MULTI=DRIVE SUBTEST ROUTINES 8-Jul-1983 9; 3:35 
4 ««CR_ADDR EQLA (.M_ADDR + 8) 
BEGIN 


CR_ADDR_= .CR_ADDR 
iF IT. TST ¢.tR ADDR, 


BEGIN 
WRT_RC25 (RCIP, RC_ALL, ALL ONES); 
LSLUN = .CST_ADDR COF_UN, P-UNITJ: 
ERRDF (20, EGD_20, EMS Sor 
DRV_CTLERR (.CRTLR); 
TYPE = MT_FATAL; 

END; 

EXITLOOP; 

END; 


CR_ADDR = 


+ 2; 
ED. OWN) 


~CR_ADDR + 4; 


SEQ 0315 
VAX=-11 Bliss=-16 V3-555 Page 
_DUA2: CDOUCETTE. CZRCDICZRCD3.SRC33 (47 


: i SLOT HOLDS TIMED OUT COMMAND 


! ADVANCE TO HI-ORDER WORD 
: c— IS STILL CTLR-OWNED 


| WRITE IP TO STOP DEVICE 

i EONTROLLER TIMEOUT" 

i CLEAN UP CTLR DATA IN DRIVER 
i CHANGE TYPE TO FATAL ERROR 

! IF SLOT STILL CTLR-OWNED 

! EXIT C-RING SLOT SEARCH LOOP 
! IF COMMAND SLOT IS FOUND 


! ADVANCE TO NEXT C-RING SLOT 


END; ! C-RING SLOT SEARCH LOOP 


IF (RP_INDX 
THEN 
BEGIN 


RP_ADDR = RETPKT + (.RP_INDX * RP_LEN * 2); 
a - TYPE EQLU MT_ TIMEOUT 


BEGIN 


COPY_BLK (.M_ADDR + 4, .RP_ADDR, RP_LEN); 
PUT_ENV (.M_INDEX); 


GET_RETPKT (.CNTLR)) GEQ 0 


END; ! IF TYPE 


RP_ADDR CCTLRJ = eget 

RP ane CMESTYP] = .TYPE; 
RP_ADDR CCONID2 = ib DRIVER; 
IN_ 10D0 (.RP_INDX) ; 


! IF RETPKT IS AVAILABLE 
! THEN 


: IF _ COMMAND TIMEOUT 


! COPY COMMAND TO RETPK 
! RETURN COMMAND ENVELOPE TO POOL 


= COMMAND TIMEOUT 


! LOAD CTLR # INTO RETPKT 
! LOAD TYP 
! LOAD PACKET ORIGINATOR 
! PASS RETPKT TO EXERCISER VIA I0DQ 


END; ! IF RETPKT IS AVAILABLE 
END; ! IF COMMAND TIMER REACHED ZERO 
END; ! IF OWTC ENTRY HOLDS A COMMAND ENVELOPE INDEX 
END; ! OUTSTANDING COMMAND ENTRY LOOP 
END; ! IF CONTROLLER IS ONLINE 


1876 END; ! CONTROLLER LOOP 
4877 T_FLAG = FALSE; ' CLEAR ENTRY FLAG 





CZRCO3 
v01.0 


6 9 


CZRCDAO RC25 DISK EXERCISER 


MULTI-DRIVE SUBTEST ROUTINES 8-Jul-19 


END; ! ROUTINE DRV_TIMCHK 


11-Jul-1983 08: 
83 17: 


SEQ 0316 


VAX-11 Bliss-16 V3-555 Page 133 


DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 i 


SBTTL DRV.TIMCHK MULTI-DRIVE SUBTEST ROUTINES 


0000006 DRV. TIMCHK: 
JSR RI .SSAVES 
000006 SUB #6. SP 
1$: MOV R5,-(SP) 


PC,SET.CPAR 
CST.ADDR,RO 
2(RO) 


0000006 
0000006 
000002 
014744" 11$ 
0000006 OCL.x1.R2 
014730" 10$ 
0000006 OUTC.LIST(R2) RO 
RO.4(SP) 

R2.RO 

QUTC. TIMR(ROD 

#377, 0UTC.LIST(R2) 
4(SP), (SP) 
#104,-(SP) 


PC BLSMUL 
0000006 #Msce. see RO 
000010 a. 

1 ADDR 


RO 
000010 000004 TO(R0). 4(SP) 
000004 
10(SP) .R3 
#10,R3 


0000006 

000377 0000006 
000004 

000104 

0000006 


#10.,R1 
a4(SP) ,R3 
6$ 

ro epek gt: 


a(S 
ae reer RO 
rs ,#-100000 


000004 


177777 
0000006 RO.SRC25. ADDR 
0000006 CST.ADDR RO 

000006 hs eaity) 


177760 4177740 (SP) 
0000006 MOV {SP)+, LS$LUN 
24 
EGD.20 
EMS.20 


10516 R5, (SP) 
004737 0000006 PC,DRV.CTLERR 


; CNTLR 


3; CNTLR,* 


*, COUNT 


; COUNT 


; *(COUNT) o* 
; *,M. INDEX 


; COUNT,* 


; *,* (COUNT) 


M.INDEX,* 


*,M.ADDR 
*.cR. ADDR 
TYP 


; McADDR, * 


; *,SLOT 

; CR.ADDR,* 
; *,CR.ADDR 
; CR.ADDR,* 


; *,RC.REG 
; RC -REG,* 


; CNTLR,* 





H 9 


SEQ 0317 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1 : VAX-11 Bliss=-16 V3-555 Page 134 
v01.0 MULTI-DRIVE SUBTEST ROUTINES 8 : DUA2: CDOUCETTE..CZRCDICZRCD3.SRC;3 (47 


000003 ' g3.n6 ; *, TYPE 
000004 000004 6$: #4,4(SP) ; *,CR.ADDR 
R1 ; SLOT 


7$: ; CNTLR,* 


R5, (SP) 
PC,GET.RETPKT 
RO,RP. INDX 


; RP.INDX,* 


; TYPE,* 
; M.ADDR,* 
; RP.ADDR,* 
K 
) ; M.INDEX,* 
(SP)+, (SP)+ 
RP. ADDR, RO 
#2.,R0 


; CNTLR,* 
R1 


MOV R5,R1 
177760 Ic #177760 
000017 #17,(R 


17, (ROS 
R1, (RO) 
R4.R1 ; TYPE,* 
R1 
R1 
R1 
R1 
177417 ic #177617,R1 
000360 #360, (RO) 
R1, (RO) 


000003 000001 
0000006 


R2 : COUNT 
0000006 Ne RO, OCL.X2 : COUNT. * 


014304° 


4 

(SP)+ ; 

R5 ; CNTLR 
000003 a3 #3 ; CNTLR,* 


2$ 
014246' MP 1$ 
0000006 12$: T.FLAG 
000006 #6,SP 


000536 000207 RTS PC 
3 Routine Size: 176 words, Routine Base: $CODE$S + 14234 
3 Maximum stack depth per invocation: 15 words 





CZRCOS 
v01.0 


000000 
000002 
000006 
000012 
000014 


3; Routine Size: 
: + Maximum stack 


: Routine Size: 
: Maximum stack 


4903 
4904 
4905 
4906 
4907 
4908 





1 9 


CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 + 44:52 VAX-11 Bliss-16 V3-5 
RC25 INTERRUPT SERVICE ROUTINES 8-Jul-1983 17 


ZSBITL "RC25 INTERRUPT SERVICE ROUTINES’ 


'¢ 

: THERE EXISTS AN RC25 INTERRUPT SERVICE ROUTINE FOR EACH DEVICE 
CONTROLLER. EACH SERVICE ROUTINE BEGINS BY SIMPLY SETTING THE 

; APPROPRIATE CONTROLLER NUMBER INTO “‘ICTLR’’. ALL SERVICE ROUTINES THEN 
4 BRANCH TO A COMMON INTERRUPT PROCESSING ROUTINE. 


le 
BGNSRV (RCINTO); 


ICTLR = 0; 
RCINT (); 


ENDSRV; 


SEQ osre 


-SBTTL —— — INTERRUPT SERVICE ROUTINES 
RCINTO: :MOV RO,- 
000600° C ICTL 


R 
000000Vv PC .RCINT 
(SP)+,RO 


7 words, Routine Base: $CODE$ + 14774 
depth per invocation: 2 words 


BGNSRV (RCINT1); 


ICTLR = 1; 
RCINT (); 


ENDSRV; 
. RCINT1 RC25 INTERRUPT SERVICE ROUTINES 
RCINT1: :MOV RO,-(SP) 
000001 000600° MO #1,1CTLR 
000000v 


PC;RCINT 
(SP)+,RO 


8 words, Routine Base: $CODE$ + 15012 
depth per invocation: 2 words 


BGNSRV (RCINT2); 


ICTLR = 2; 
RCINT (); 


ENDSRV; 


136 
243:57 DUA2: CDOUCETTE. CaReDICZRCDS. SRC;3 Po 


J9 


SEQ 0319 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:5 VAX-11 Bliss-16 V3-555 Pa age 137 
v01.0 RC25 INTERRUPT SERVICE ROUTINES 8-Jul-1983 17:43:5 _DUA2: CDOUCETTE. CZRCDICZRCD3.SRC:3 (48 
Pas Nye RC25 INTERRUPT SERVICE — 

010046 RCINT2:: RO,-(SP) 4903 
000002 012737 000002 000600" HOV Roc TCTLR : 4905 
000010 004737 000000V JSR PC,RCINT : 4906 
000014 012600 MOV (SP)+,RO : 4903 
000016 000002 RTI 
; Routine Size: 8 word Routine po SCODES + 15032 
: Maximum stack depth net invocation: 2 words 
; 4909 
; 4910 BGNSRV (RCINT3); 
4 4911 
3 4912 ICTLR = 3; 
3 4913 RCINT (); 
3 4914 
3 4915 ENDSRV; 

-SBTTL RCINT3 RC25 INTERRUPT SERVICE ROUTINES 
000000 010046 RCINT3: :MOV RO,-(SP) : 4910 
000002 012737 000003 000600° MOV #3, IcTLR 3 4912 
000010 004737 900000vV JSR PC.RCINT 3 4913 
000014 012600 MOV (SP)+,RO 3 4910 
000016 000002 RTI 
; Routine Size: 8 words, Routine Base: $CODE$ + 15052 


* Maximum stack depth per invocation: 2 words 


kK 9 


SEQ 0320 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11_ Bliss-16 V3-555 Pa age 138 
v01.0 RC25 INTERRUPT SERVICE ROUTINES B-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (49 
; 4916 ROUTINE RCINT : NOVALUE = 
1918 
° he 
: 4919 | THIS IS THE COMMON INTERRUPT SERVICE ROUTINE FOR ALL RC25 CONTROLLERS 
; 4920 AFTER SETTING UP THE COMMONLY=USED CONTROLLER-RELATED DATA ITEMS, I HIS 
; 4921 | OUTINE WILL SAVE The CURRENT CONTENTS OF THE SA REGISTER IN THE DCT. 
: 4922 THEN, If THE “IGNORE INTERRUPT’ BIT IS SET, NO FURTHER ACTION IS TAKEN. 
; 4924! If THE INITIALIZATION SUBTEST IS IN PROGRESS OR IF THE DM EXERCISER 
: 4925 i SUBTEST BEING RUN, THEN INTERRUPT PROCESSING CONTINUES BY CHECKING THE 
; 4926 | ERROR BIT OF THE SA REGISTER, AND POLLING THE COMMAND AND RESPONSE 
3 4927! RINGS. OTHERWISE. THE INTERRUPT IS PROCESSED LATER WHEN INT PROC IS 
; 4928 : CALLED FROM THE MULTI-DRIVE SUBTEST "'EXECUTIVE'’ (MULTI_DRIVE). 
3 4930 
; 4931 BEGIN 
; 4933 ISET_CPA ! SET UP CONTROLLER-RELATED PARAMETERS 
: 4934 Ipcty ADDR (Sh SAVE] = .IRC25_ADDR CRCSA, RC ~ALLI; ' SAVE SA REGISTER 
: 4935 -IDCT_ADDR-L1G_INT] EQLU YES 1 7GNORE INTERRUPT? 
: 4936 THEN 
; 4937 RETURN: YES = RETURN 
; 4938 IF ((.1IP_FLAG) OR (BIT_TST (SWP_FLAGS, sur_pm)} H IF INIT SUBTEST OR DM EXERCISER 
H 4939 THEN THEN 
: 4940 BEGIN 
: 4942 IF BIT_TST (IDCT_ADDR CSA_SAVEJ, SA_ERR)  ! IF FATAL ERROR 
; 4943 THEN i THEN 
: 4944 FATAL_ERROR () i DECLARE ERROR AND CLEAN UP 
; 4945 ELSE i OTHERWISE 
; 4946 BEGIN 
3 4947 
; 4948 POLL_CRING (); ' POLL COMMAND RING 
: 4949 POLL~RRING (); i POLL RESPONSE RING 
: 4951 END; 
: 4952 
; 4995 END; ' IF INIT SUBTEST OR DM EXERCISER 
: 4955 END; ! ROUTINE RCINT 
.SBTTL RCINT RC25 INTERRUPT SERVICE ROUTINES 

010146 RCINT: MOV R1,-(SP) : 4916 
000002 005746 TST -(§ 
000004 004737 000000Vv JSR PC, ISET.CPAR : 4933 
000010 013700 000566° MOV IDCT.ADDR,RO : 4934 
000014 013701 0000006 MOV IRC25. ADDR,R1 
000020 016116 000002 MOV 2(R1), (SP) : *,RC.REG 
000024 011660 000002 MOV (SP), 2(RO) + RC.REG,* 
000030 032710 040000 BIT #40000, (RO) : *, IDCT.ADDR 4935 
000034 001026 BNE : 4937 
000036 132737 000001 0000006 BITB #1, JIP.FLAG : 4938 
000044 001004 BNE 
000046 132737 000002 0000006 BITB #2,SWP.FLAGS 
000054 001416 BEQ 


000056 016000 000002 1$: MOV 2(RO) ,RO : 4942 


L 9 


SEQ 0321 
czAcoae RC25 DISK EXERCISER 11-Jul-1983 08:4 44:52 VAX-11 Bliss=-16 V3-555 Pa age 
RC25 INTERRUPT SERVICE ROUTINES B-Jul-19835 17:43:57 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (49 


077777 #77777,R0 
100000 MP RO, ,#-160000 


000000v PC ,FATAL.ERROR 
BR 3$ 


000000V 2$: PC,POLL.CRING 
000000Vv 1 Os npcmmamsaee 


+ 
(SP)+,R1 
PC 


3$: 
1 1 
000207 
3; Routine Size: 40 words, Routine Base: SCODE$ + 15072 
: Maximum stack depth per invocation: 3 words 





a 9 
SEQ 0322 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 08:66:36 VAX-11 Bliss-16 V3-555 page 140 
v01.0 RC25 INTERRUPT SERVICE ROUTINES B-Jul=-1983 17:43:5 _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (50 


ROUTINE INT_PROC : NOVALUE = 


+ 
THIS ROUTINE IS CALLED FROM THE ‘EXECUTIVE’ OF THE MULTI-DRIVE SUBTEST 
mm ANY RC25 INTERRUPTS WHICH MAY HAVE OCCURRED IN THE RECENT 


IF EITHER THE INITIALIZATION SUBTEST OR DM EXERCISER SUBTEST IS BEING 
INTERRUPTS ARE FULLY PROCESSED AS THEY OCCUR (SEE RCINT). 
E INTERRUPTS ARE PROCESSED ON A 


AFTER SOME INITIALIZATION, THIS ROUTINE CONTINUES AS IF AN INTERRUPT 
HAS JUST OCCURRED: IF THE ERROR BIT OF THE SA REGISTER 1S SET, THEN A 
FATAL ERROR IS DECLARED. OTHERWISE, THE COMMAND AND RESPONSE RINGS ARE 


IF NO INTERRUPT HAS OCCURRED IN THE RECENT PAST, THEN THE POLLING 
ROUTINES TAKE NO ACTION. 


NOTE: ALL RC25'S ARE ASSUMMED TO BE HARDWIRED AT BR LEVEL 5 OR LESS. 
INTERRUPT PROCESSING RUNS AT LEVEL 5, AND CANNOT BE BROKEN BY AN 
INTERRUPT FROM A SECOND RC25. 


IMPLICIT INPUTS: 
CCTLR = CURRENT CONTROLLER NUMBER 


] 
. 
' 
. 
' 
. 
‘ 
. 
i] 
. 
‘ 
. 
' 
. 
' 
. 
' 
. 
' 
' 
. 
' 
‘ 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
‘ 
. 
' 
. 
' 
. 
' 
. 
' 
* 
' 
oe 
' 
. 
‘ 
. 


BEGIN 
SETPRI (PRIOS); : ! LOCK OUT ALL RC25 INTERRUPTS 
ICT .CCTLR; i FAKE INTERRUPTING CONTROLLER NUMBER 
ISET_CPAR (); i SET UP CONTROLLER-RELATED DATA 
IDCT“ADDR_ CSA SAVE) = .1RC25_ADDR CRCSA, RC_ALLI; ! SAVE SA REGISTER 
IF BIT_TST (IDCT_ADDR CSA_SAVEJ, SA_ERR) i iF FATAL ERROR 

FATAL_ERROR () 

BEGIN 


POLL_CRING (); ! POLL COMMAND RING 
POLL_RRING (); ' POLL RESPONSE RING 


END; 
SETPRI (PRIOO); ' RESTORE PROCESSOR PRIORITY 
END; ! ROUTINE INT_PROC 


! OTHERWISE 


INT.PROC RC25 INTERRUPT SERVICE ROUTINES 
010146 


R1,-(SP) : 
095746 -(SP) 
012700 000240 #240,R0 ; 
104441 41 





N 9 


CZRCD3 CZRCDAO RC25 DISK EXERCISER 11=Jul-198 
1.0 RC25 INTERRUPT SERVICE ROUTINES 8-Jul-198 


0000006 000600' 
000000v 
000566° 

00000 


0G 
000002 
000002 


077777 
100000 


000000v a 
000000Vv : PC,POLL.CRING 
000000Vv + peccertcean 


41 

(SP)+ 
(SP)+,R1 
PC 


; Routine Size: 36 words, Routine Base: SCODE$ + 15212 
; Maximum stack depth per invocation: 4 words 


3 08:44:5 
3 1 243:5 


; 


SEQ 0323 
VAX=11 Bliss-16 V3-555 Page 141 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (50 


4988 
4989 
4990 


; *,RC.REG 
; RC.REG,* 











8 10 


SEQ oes 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 0 VAXs11 Bliss=-16 V3=-555 coge ' 42 
v01.0 RC25 INTERRUPT SERVICE ROUTINES 8-Jul-1983 1 _DUA2: CDOUCETTE .CZRCDICZRCD3. SRC; 3 (51 


ROUTINE ISET_CPAR : NOVALUE = 

14 

i THIS ROUTINE IS CALLED BY RCINT AND INT PROC TO SET UP THE COMMONLY- 
; USED DATA ITEMS FOR THE INTERRUPTING CONTROLLER. 
i IMPLICIT INPUTS: 

! ICTLR = INTERRUPTING CONTROLLER NUMBER 


BEGIN 


ANEW 


! CALCULATE DCT ADDRESS 
CALCULATE CST ADDRESS 
! GET RC25_ ADDRESS 
OMM_LEN * 2); ! CALCULATE COMM_AREA ADDR 


! ROUTINE ISET_CPAR 


mC 0On 


-SBTTL ISET.CPAR RC25 INTERRUPT SERVICE ROUTINES 
010146 ISET. ate 


013701 : 


#CST,_RO 
RO, ICST.ADDR 
(RO) -1RC25..ADDR : ICST.ADDR,* 
000110 MOV Bio. -(SP) 
0000006 PC,BLSMUL 
000000° #COMM. AREA, RO 
000560' MOV RO, 1COM. ADDR 
000010 #10, 
{sPSa_Rt 
PC 


; Routine Size: 36 words, Routine Base: $CODE$ + 15322 
+ Maximum stack depth per invocation: 6 words 








C 10 
SEQ hes = 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-19 : VAX-11 Bliss-16 V3-5 page 143 
v01.0 RC25 INTERRUPT SERVICE ROUTINES 8-Jul-19 : DUA2: CDOUCETTE. CaReDICZRCDS. SRC;3 (52 


ROUTINE FATAL_ERROR : NOVALUE = 


1+ 
: THIS ae IS CALLED BY ee RCINT AND INT PROC NV. DETECTING AN 
ERROR THR THE PEACE S_SA REGIST ITS PURPOSE IS TO 
CLEAN uP DEVICE DATA IN THE DRIVER'* PORTION OF THE TENERCISER. AND TO 
INFORM THE 'PROGRAM'’ PORTION OF THE EVENT VIA RETURN PACKET. 


‘ 

] 

‘ 

; 

: IMPLICIT INPUTS: 
: ICTLR = pets e pg tae si NUMBER 

: IDCT_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S DCT 
ICST_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S CST 


BEGIN 

LOCAL 
INDEX : SIGNED WORD, 
U_SAVE : WORD; 


A_REG = .IDCT_ADDR CSA_SAVE); 
5 SAVE LSLUN; ! SAVE PRE-INTERRUPT CURRENT UNIT NUMBER 
LSLUN = “ist ADDR COF_UN, P_UNITJ; ' SET CURRENT UNIT TO FIRST IN CONTROLLER 
ERDF (14 » EGD 14, EMS_14); ! ER ERROR’ 


LSLUN U_SAV . 
DV MCTLERR™ (. ICTLR) ! CLEAN UP E 
een * GET URETPKT (.ICTLR)) GEQ 0 ! TRY TO GET A RETPRT: IF SUCCESS 


N 

BEGIN 

RETPKT C. INDEX, CONID) = CID_DRIVER; ! SET CONNECTION ID TO ‘DRIVER’ 
RETPKT C.INDEX, MESTYP] = MT” FAT AL; ! FATAL ERROR 

RETPKT - INDEX, anne * <ICTER: ! CONTROLLER NUMBER 

IN_10DQ (. INDEX) ! LOAD RETPRT INDEX INTO I0DQ 
END; ! IF RETPKT WAS ALLOCATED 


END; ! ROUTINE FATAL_ERR 


- SBT FATAL.ERROR RC25 INTERRUPT SERVICE ROUTINES 
0000006 a 1. SSAVE2 


000566' TOtT. ADDR, RO : 

000002 0000006 MOV 2(RO) ,SA.REG 

0000006 LSLUN,R1 3 *,U.SAVE 
000564" ICST.ADDR,RO : 

000006 eine? Re 

177740 #177740,R2 

0000006 MOV LSLUN 


0000006 
010137 000000G MOV U ; U.SAVE,* 
013746 000600° : 





CZRCD3 
v01.0 


000064 
000070 

74 
000100 
000102 


1 
1 
1 
1 
1 
1 


000134 
000140 
000144 
000146 
000150 
000154 
000156 
000160 


3; Routine Size: 


CZRCDAO_RC25 DISK EXERCISER 
RC25 INTERRUPT SERVICE ROUTINES 


0000006 
000600' 
0000006 


000060 
0000006 
0000026 
000003 000001 
00600° 
177760 
000060 


0900006 
1$: 


57 words, Routine Base: 


> Maximum stack depth per invocation: 6 words 


D 10 


11-Jul-19 
8-Jul-19 


PC,DRV.CTLERR 
ICTLR, (SP) 
PC,GET.RETPKT 
RO.R1 


PC,BL LSMUL 
WRETPKIS?, RO 
3,1(RO) 
Ic TLR, R2 
#177760, R2 
#60, (RO) 
R2, (RO) 
R1, (SP) 
PC, IN. 10DQ 
(SP)+ 
(SP) + 

PC 


SCODES + 15432 


SEQ 0326 
VAX-11 Bliss-16 V3-555 Pa age 144 
_DUA2: CDOUCETTE. CZRCDICZRCD3. SRC; 3 (52 


; *, INDEX 
; INDEX,* 


° INDEX,* 








E 10 


SEQ 0327 
CZRCDS CZRCDAO RC25 DISK EXERCISER 11=Jul-1 : VAX-11 Bliss=16 V3-555 page 
v01.0 RC25 INTERRUPT SERVICE ROUTINES 8-Jul-1 : _DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (53 


ROUTINE POLL_CRING : NOVALUE = 
'¢ 


: THIS yt IS CALLED BY BOTH RCINT AND INT_PROC TO SCAN a. DEVICE'S 
COMMAND RING AND CHECK FO Y_ COMMAND ;F HAT _HAVE Geen ‘TAKEN'' BY 


145 


FOR EAC R 
NG CR eg AND THE CR_POLL ADDRESS IS ADVANCED TO 
THE NEXT SLOT IN THE COMMAND RING. 


IMPLICIT INPUTS: 
CTLR = INTERRUPTING CONTROLLER NUMBER 


I 
IDCT_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S DCT 
ICOM_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S COMM_AREA 


' 
' 
' 
2 
' 
i 
i 
' 
' 
' 
' 
BEGIN 

—, “ sitet ADDR CCRING_CNT] GTRU 0) AND ! WHILE # OF COMMANDS _IN CRING > 0 AND 

7 K.- T_TST ((.IDCT_ADDR CCR POLL] + 2), ED_OWN))) D0 ! CURRENT SLOT IS HOST-OWNED 


IDCT_ADDR CCRING_CNTJ = .IDCT_ADDR CCRING CNT] = 1; ! DECREMENT # CMDS IN CRING 
pcr ADDR CCR_POLL] = <IDCT_ADDR CCR_P + 4; ' ADVANCE TO NEXT SLOT TO POLL 
a FTC ADDR” CCR_POLLI GRA -IDCT CRBDR fcr. END] JF BEYOND END OF RING 
IDCT_ADDR CCR_POLLJ = .IDCT_ADDR CCR_BEGI; ' SET POINTER TO TOP OF CRING 
END; 
ICOM_ADDR CCMD_INT] = 0; ! CLEAR COMMAND INTERRUPT WORD IN RING HEADER 
END; 
.SBTTL POLL.CRING RC25 INTERRUPT SERVICE ROUTINES 
0000006 POLL.CRING: 
JSR R1,$SAVE2 


000566' IDCT.ADDR,R1 
000016 MO #16,R2 


R1.R 

(Ri) 

2$ 
16(R1) RO 
2(RO) 


#77777 ,RO 
RO. ,#-100000 


( 
000004 #4, (R2) 
000012 (Re) ,12¢R1) 
000010 ICRI), (R2) 
000560" 2$: ICOM. ADDR,RO 
000004 4 (RO) 

fs 


RTS 
: Routine Size: 32 words, Routine Base: $CODES + 
: Maximum stack depth per invocation: 4 words 


614 








F 10 
SEQ ose 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 08: 44:52 VAX-11 Bliss-16 V3-555 page 147 
v01.0 RC25 INTERRUPT SERVICE ROUTINES 8-Jul-1983 17:43:57  _DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (54 


ROUTINE POLL_RRING : NOVALUE = 


'¢ 

' THIS ROUT INE Is CALLED By BOTH RCINT AND INT_PROC TO SCAN THE DEVICE. s 
! SE RI CHECK FOR ANY SLOTS WHICH RAVE BEEN RETURNED TO THE 

' = 0). FOR EACH SUCH SLOT, THE ASSOCIATED RESSAGE 1s 
! PROCESSED BASED ON ITS CONNECTION ID (DISK OR DUP) AND MESSAGE TYPE 

' (SEQUENTIAL OR DATAGRAM). AFTER PROCESSING, THE MESSAGE ENVELOPE IS 
RE-INITIALIZED AND RETURNED TO THE CONTROLLER (OWNERSHIP BIT SET TO 1). 
J 
i 
¢ 


IMPLICIT INPUTS: 
IDCT_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S DCT 


KARAL 


coo~ 


BEGIN 
Le in (BIT_TST (<.IDCT_ADDR CRR_POLL] + 2), ED_OWN)) DO ! WHILE 0 = 0 


-—-ooo 


aed ADDR = ..IDCT_ADDR CRR_POLL) - 8; ! ADDRESS OF RESPONSE ENVELOPE 
-IENV_ADDR CCONNID) EQLU CID_DISK ! IF MESSAGE IS FROM DISK MSCP 


THEN i THEN 
SELECTONEU .IENV_ADDR CMSGTYP) OF i PROCESS ON MESSAGE TYPE 
CMT_SEQ) =: ENV_TO_ RP QO; ! SEQUENTIAL 
CMT~DGJ : DATAGM™ ( i DATAGRAM 
TES 
BEGIN 
IF _;TENV_ADDR CCONNID] EQLU CID_DUP i If MESSAGE IS FROM DUP 
ENV_TO_RP (); i COPY ENV TO RETPKT 
END: 
IENV_ADDR CMSGLEN] = MSG_LEN * 2; ! RE-INIT MESSAGE LENGTH 
IDCT-ADDR CRR_POLL] = .IDCT_ADDR CRR POLL] + 2; i AD TO HI ORDER WORD. OF RING SLOT 
.10CT ADDR ERR POLL] = .IENV_ADDR CENV_HIJ; i N SLOT TO CONTROLLER 
IDCT_ADDR CRR_POLLJ = .IDCT_ADDR CRR POLL]'+ i ADVANCE TO NEXT RRING SLOT 
iF Toc. ADDR “[RR_POLLJ GTRA .IDCT_ADDR CR. Mb] i IF BEYOND END OF RING 
IDCT_ADDR CRR_POLL] = .IDCT_ADDR CRR_BEGI; i CYCLE TO TOP OF RING 
END; ! WHILE LOOP 
ICOM_ADDR CRSP_INTJ = 0; ! CLEAR RESPONSE INTERRUPT WORD IN RING HEADER 
END; 


PUPP PUPS SUSU STASIS STS ITI 
ee ee ae ee ee ce ee ed ed ed ed ed ed ad ed 


! ELSE (MESSAGE NOT FROM DISK MSCP) 


MO OONAUEWN = OVONOUSLWN—OO 


WIWUWARONONONONINONYNINY PO A A OO OO Ot 


3 to os Ss SS SO SS 
ys 
Mw 


SRR OW 
Fwhr-O0ean 


PUPP PAPA AAAI III 


-SBTTL POLL.RRING RC25 INTERRUPT SERVICE ROUTINES 
000000 004137 0000006 POLL.RRING: 
JSR R1,$SAVE2 : 


000004 013702 000566' MOV IDCT.ADDR,R2 : 





CZRCD3 
v071.0 


CZRCDAO RC25 DISK EXERCISER 
RC25 INTERRUPT SERVICE ROUTINES 


000014 
1$: 


$700 977979 
100000 


0 
000000 000562" 


; Routine Size: 


000010 000562" 
000562" 


000006 
000001 


177760 

000001 

000000v 

900001 000002 


000000 


000560° 5$: 
000006 


75 words, Routine Base: 


: Maximum stack depth per invocation: 4 words 


G 10 


11-Jul-1983 
8-Jul-1983 


@0(R2), IENV.ADDR 
#10, 1ENV.ADDR 
IENV.ADDR,RO 
#6,RO 


RO 
#177760,R0 
3$ 

RO,#1 

PC ,DATAGM 
1(RO) ,#2 

$ 


4 
PC,ENV.TO.RP 
IENV.ADDR,RO 


#74,4(RO) 
IDCT.ADDR,R1 
R1,R2 
#14,R2 

#2, (R2) 
2¢R0) a0(R2) 


ICOM. ADDR RO 
6(RO) 
PC 


SCODES + 15714 


0 
1 


? 


24 
24 


VAX-11 Bliss-16 V3-555 
DUA2: CDOUCETTE .CZRCDJ 


SEQ 0329 
rege 148 
CZRCD3.SRC33 (54 


Roe BAF 


Ww 








H 10 


CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 0 
v01.0 RC25 INTERRUPT SERVICE ROUTINES 8-Jul-1983 1 


ROUTINE ENV_TO_RP : NOVALUE = 


SEQ 0330 
8:44:52 VAX-11 Bliss-16 V3-555 P 
7:43:57 


a 
DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (559 


+ 


THIS ROUTINE IS CALLED BY POLL_RRING FOR (A) DISK MSCP RESPONSE 
MESSAGES WITH THE ‘‘SEQUENTIAL’” MESSAGE TYPE, AND (8) DUP RESPONSE 
GENERAL PURPOSE IS TO COPY THE CONTENTS OF THE MESSAGE 
EE OPE ore RETURNED TO 


SA OCIATED COMMAND IN 
THE CONTROLLER'S OUTSTANDING COMMAND LIST (OUTC_L -_ THEN TIMING FOR 
THAT COMMAND IS TERMINATED. IN ADDITION, IF T D WAS AN 1/0 
TRANSFER (READ, WRITE, OR ACCESS), THEN SOME FIELDS OF THE COMMAND 
ENVELOPE ARE COPIED INTO THE RETURN PACKET. 


AFTER THE RETURN PACKET HAS BEEN LOADED, ITS INDEX IS LOADED INTO THE 
ry ha I a (10DQ) FOR PROCESSING BY THE ‘PROGRAM'’ PORTION OF THE 


IMPLICIT INPUTS: 
ICTLR = INTERRUPTING CONTROLLER NUMBER 
IENV_ADDR = ADDRESS OF MSCP ENVELOPE CONTAINING RESPONSE 


ee ee ek ee ee ek ed a ed ae ad dd 
AXAQAQQDMAMGGGUIMIUIT ES & & Ss 


: SIGNED WORD, 
: SIGNED WORD, 


D, 


: WORD, 
: ~¥4 BLOCK CRP_LEN, WORD] FIELD (RP_FIELDS), 


DPD PU PVPS SUSU STS ST STS SIS SISSY 


aD ee ed ed ed ed SS = od 


© 0 00 00 09 00 00 Go 00 09 00 Co NNN NNNNS 


M_INDE -1; ! ASSUME NO ASSOCIATED COMMAND PACKET 

STIDX = .ICTLR * OUTC_CNT; ! START OF CONTROLLER'S OUTC_LIST AND _TIMR 
ENDIDX = .STIDX + OUTT_CNT - 1; ! END OF OUTC 

en FROM .STIDX TO .ENDIDX DO ! SEARCH THROUGH EACH OUTC ENTRY 


<<" = ,OQUTC_LIST C.COUNTJ) GEQ 0 ; — CONTAINS AN OUTSTANDING COMMAND INDEX 
BEGIN : 
IF .MSCP_ENV C.TEMP, CRN_LOJ EQLU .IJENV_ADDR CCRN_LOJ ! IF THIS IS THE ASSOC CMD 
THEN ! THEN 


! INIT ENTRY 
! TURN OFF COMMAND TIMER 
EXxITLOO 


END; 


me ee es ee ed ed et ed ot ot od SS ot ot a I I 


SBSSLESRANS 


o 
° 
. 
o 
o 
° 
° 
° 
. 
e 
a 
° 
. 
e 
. 
6 
. 
° 
. 
eo 
o 
oO 
o 
e 
a 
e 
. 
° 
. 
° 
a 
eo 
. 
e 
° 
° 
. 
e 
o 
e 
a 
° 
- 
° 
. 
e 
° 
° 
o 
e 
« 
e 
a 
oe 
o 
e 
> 
—_ 
. 
eo 
. 
e 
- 
° 
o 
° 
co 
° 
o 
oO 
o 
e 
2 
e 
oe 
° 
e 
. 
° 
o 
° 
o 
° 
a 
e 
. 
e 
. 
° 
7 
eo 
. 
e 
oe 
° 
o 
e 
e 
. 
e 
. 
° 
* 
° 
2 
a 
. 
a 
. 
° 
° 
° 


PUI DPV DVDV PVPS ESV SUSU SSIS I 


Nonny —3——— 
So 
— 








I 10 


SEQ oe 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 08:44:52 VAX-11 Bliss-16 V3=-555 
v01.0 RC25 INTERRUPT SERVICE ROUTINES ba jut= 1983 19: :43:57 _DUA2:CDOUCETTE.CZRCDJCZRCD3.SRC;3 (539° 


— = GET_RETPKT (.ICTLR)) GEQ 0 ! IF RETPKT IS AVAILABLE 
BEGIN 


R_ADDR = RETPKT + (.R_INDEX * RP_LEN * ! START OF ALLOCATED RETPKT 
+ 4 «R_ADDR, RP_ Leni ; ! COPY RESPONSE ENVELOPE INTO pte PACKET 
B ! LOAD CONTROLLER yy INTO PACKET 
Oe i GEQ 6 : wen ASSOC. CMD ENV WAS FOUND 


BEGIN 


IF (¢(. TENV wie COPCODE] EQLU (ore Cnr + OP_END)) OR ! IF END MESSAGE IS 
(. IENV R COPCODE] EQLU (OP_WRT + OP_END)) OR : READ, WRITE, OR 
ne (. ENV, ~ADDR COPCODE] EQLU (OP_ att + OPLEND))) ; ACCESS 


N 
BEGIN 


R_ADDR CCMDMOD] = .MSCP_ENV C.M_INDEX, MODIFY); ! COPY 
RTADDR ECBCNT_LO) = .MSTP_ENV C-M_INDEX, BC_LOJ;  ? RELEVANT 
R-ADDR CCBCNT-HIJ = .MSCP~EN DEX, BC"HIJ; | FIELDS 
R™ADDR Rel E ' FROM 


PUPU PUSS III II 
PMOMIMINPINININONPONIPIPONININININYPI Porn 
Weert tetrad t tat tet tet 
OONAULSWN $06 OONOUS wr 


o 


C 
! PACKET 
R_ADDR CBUFF—1J P71]: ! TO RETPKT 


END; ! IF ENDCODE WAS READ, WRITE, OR ACCESS 
END; ! IF ASSOC CMD ENV WAS FOUND 
IN_IODQ (.R_INDEX); ! PUT RETPKT INDEX INTO I0DQ 
END; ! IF RETPKT WAS ALLOCATED 
4 -M_INDEX GEQ 0 ! IF ASSOC CMD ENV WAS FOUND 
PUT_ENV (.M_INDEX); ! RETURN COMMAND ENVELOPE TO POOL 
END; ! ROUTINE DISK_RSP 


o 
. 
oe 
. 
° 
° 
° 
. 
° 
. 
° 
. 
° 
. 
oe 
. 
° 
. 
° 
° 
° 
. 
° 
. 
e 
. 
° 
. 
° 
. 
° 
. 
° 
2 
e 
. 
° 
. 
° 
. 
° 
. 
° 
e 
~ 
a 
° 
° 
o 
° 
2 
° 
. 
° 
© 
e 
° 
a 
° 
e 
. 
e 
° 
° 
. 
e 
7 
° 
. 
° 
- 
° 
a 
= 


-SBTTL ENV.TO.RP RC25 INTERRUPT SERVICE ROUTINES 
0000006 ENV.TO.RP: 
JSR R1 Sse 


177777 #-i,R + ML INDEX 
000600' MOV : 


; STIDX, ENDIDX 
000017 : * , ENDIDX 
: sf10x, COUNT 
: *, COUNT 


BR 2 
0000006 : ¥ OUTC.LIST(R2) ,R3 ; *(COUNT) , TEMP 
R3,-(SP) ; TEMP,* 








012746 
004737 
022626 
013701 
026061 
001011 

10304 


crecow RC25 DISK EXERCISER 
RC25 INTERRUPT SERVICE ROUTINES 


000104 
0000006 


000562" 
0000106 000010 


000377 0000006 


000002 


000562" 
000020 
177400 
000241 


000242 
000220 


000104 
0000006 
0000226 000012 


000024G 000044 
asa: sian 


0G 000024 
0000326 000026 


#104,-(SP) 
PC ,BLSMUL 
($B)+ (SB) 
IENV.A 
ye oe OCROD. 10(R1) 
Basho OUTC.LIST(R2) 
R2,RO 
OUTC. TIMR(RO) 
3$ 


R2 
nee RS 


ICTLR,=(SP) 
PC ,GET.RETPKT 
RO.R1 


(SP)+ 
R1 
6$ 

R1,-(SP) 
460, -(SP) 
PC ,BLS$MUL 
#RETPKT RO 
IENV.ADDR, (SP) 
#4, (SP) 


PC, COPY. BLK 
ICTLR.RO 
arty RO 
#17,2(Re) 
RO, 2(R2) 

RG 

5§ 
1ENV.ADDR,RO 
20(RO) .RO 
#177400,RO 
RO,#241 
RO,#242 

4$ 

RO,#220 


R4, (SP) 
#104, -(SP) 


PC ,BLSMUL 
MSCP.ENV+22(RO) 


2 
MSCP.ENV#24(RO) 44 


ol 
4 
4 
o 
of 
oe 
ee 


(R2) 
(Re) 
»,46(R2) 
),50(R2) 
),52(R2) 
»,24(R2) 
),26(R2) 


MSCP.ENV+32 (RO 
(SP)+ 


SEQ Oss 


VAX=-11 Bliss-16 V3-555 Page | 151 
_DUA2: CDOUCETTE. CZRCDICZRCD3.SRC33 (55 


; TEAP,M. INDEX 
; #,*(COUNT) 


T,* 


; COUNT 
; COUNT ,ENDIDX 


; *,R. INDEX 
; R. INDEX 

; R.INDEX,* 
; *,R.ADDR 
; R.ADDR,* 


; *,*(R.ADDR) 
; *,*(R.ADDR) 
; M. INDEX 


; M.INDEX,* 


; *,*(R.ADDR) 
> *,*(R.ADDR) 
: *,*(R.ADDR) 
; #,*(RLADDR) 
; #,*(RLADDR) 
; #,*(RLADDR) 
; #,(RLADDR) 


—NMNMNMN 
NSWMEWN HO 





kK 10 


SEQ 0333 
CZRCD3 CZRCDAO RC25 DISK EXERCISER 11-Jul-1 : VAX-11 Bliss-16 V3-555 age 
v01.0 RC25 INTERRUPT SERVICE ROUTINES 8-Jul=1 : DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (55 


010116 5$: R1, (SP) : R.INDEX,* 
004737 0000006 PC. IN. 10DQ 
000010 #10,SP F 
6$: RG : M. INDEX 


7$ 
R4,-(SP) ; M.INDEX,* 
0000006 n? spur. -ENV 


7$: PC 


z Routine Size: 133 words, Routine Base: SCODES + 16142 
: Maximum stack depth per invocation: 12 words 








CZRCD3 
v01.0 


L 10 


CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 
RC25 INTERRUPT SERVICE ROUTINES 8-Jul-1983 


ROUTINE DATAGM : NOVALUE = 


'¢ 


SEQ oe 
0: 44:52 VAX-11 Bliss-16 V3-555 Page 153 
17:43:57 .DUA2: CDOUCETTE. CZRCDICZRCD3.SRC33 (56 


] 

4 THE RC25. LAR UNIT (AN T 

; CONTROLLER“RELATED) THEN ITS OCCURRENCE IS TALLIED FOR THAT UNIT. IF 

; THE USER DID NOT SUPPRESS THE PRINTING OF ERROR LOG MESSAGES — THE 
: SW DIALOG, THEN EACH RELEVANT FIELD IS IDENTIFIED AND PRINTED. IF THE 
ie INDICATES AN ECC ERROR, THEN IT IS TALLIED FOR THE APPROPRIATE 
' 
‘ 
' 
' 
] 


IMPLICIT INPUTS: 
IENV_ADDR - ee ae ENVELOPE CONTAINING ERROR LOG 


= 8 ' SUB-CODE VALUE FOR 1-SYMBOL ECC ERROR 
8 = 15, i SUB-CODE VALUE FOR 8-SYMBOL ECC ERROR 
ECO = 4; i SUB-CODE VALUE FOR ECC-FIELD-ONLY ERROR 


IND 
FMT_CE = UPLIT (ZASCIZ*ZACONTROLLER ERRORZN'), 
FMT_HMA = UPLIT ( (ZASCIZ*ZAHOST MEMORY ACCESS ERROREN' ), 
FMT_SDE = UPLIT (ZASCIZ*ZASMALL DISK ERRORZN') 


FMT_TB : VECTOR [5] INITIAL (FMT_CE, FMT_HMA, 0, 0, FMT_SDE). 
STC"TB : VECTOR fia) INITIAL (STC_00, STt_01 Ore c_62, sTC_03, STC_04 
, STC 06. se, 67, sTc_68, s?c_69, s?c_i0, sTc_i1); 


FMT : WORD, ' FORMAT CODE 
EVC : WORD, i EVENT CODE 
SBC : WORD, i SUB-CODE 
0 i ten i ; CLATIER ApOness (MSCP UNIT NO.) 

TAD REFS BLOCK RE TALLY. LEN, WORD] FIELD (T FIELDS): 'TALLY ADDRESS 
= .IENV_ADDR CFORMAT); ! GET FORMAT CODE 
EVC = .IENV~ ADoR CEVENTI; ! GET EVENT CODE 
SBC = .IENV-ADDR [CSUBC); i GET SUB-CODE 
Ud Fat FOLD FM_SDE ; iF SAALL DISK ERROR 

BEGIN 

PLAD - TENV, ADDR CPL_ADDR); ! GET PLATTER ADDRESS (MSCP UNIT NO.) 


UNIT 
INcR OFF SET FROM (0 + OF_UN) TO (3 + OF_UN) DO ! FOR EACH CST UNIT 


IF ;PLAD EQLU .ICST_ADDR C.OFFSET, P_ADDR IF PLAT ADDR MATCHES CST ENTRY 
BEGIN ; 


CZRCO3 
v01.0 


DAAAAGIUIMAA DIV) 


ERELLESE SE 


WWWG 
oO 


©Owo 


CZRCDAO_RC25 DISK EXERCISER 
RC25 INTERRUPT SERVICE ROUTINES 


UNIT = .ICST_ADDR C.OFFSET, P_UNITI; 
EXITLOOP; 


END; 
END; 
IF .UNIT GEQ 0 
THEN 
BEGIN 
TAD = TALLY + (.UNIT * TALLY_LEN * 2); 
TAD CER_LOG) = .TAD CER_LOG] + 1; 
IF .EVC EQLU ST_DAT 
THEN 
BEGIN 


IF .SBC EGLU ECO 


THEN 
TAD CECC_ONLYJ = .TAD CECC_ONLY] + 1 


ELSE 
BEGIN 


IF ((.SBC GEQ EC1) AND (.SBC LEQ EC8)) 
THEN 


BEGIN 


TAD = TAD CECC_1] + ((.SBC = 8) * 2); 
-TAD = + 1; ' 


D = ..TAD 
END; 
END; 
END; 
END; 
END; 


IF MANUAL AND (NOT (BIT_TST (SWP_FLAGS, SWF _SEL))) 
THE ! TH 


BEGIN 


PRINTF (EX_EL); 
PRINTF (EX~CRN, .IENV_ADDR CCRN_LOJ); 
IF .FMT EQLU FM_SDE 


HEN 
PRINTF (EX_PA, .PLAD); 


PRINTF (EX_FMT); 
SELECTONE <FMT OF 


CFM_CNT, FM_BAD, FM_SDE) : 
COTRERWISE] : 


TES; 


11-Jul-1983 08:44:52 


PRINTF (.FMT_12@ C.FMTJ); 
PRINTF (EX_03, .FMT); : 


Mm 10 


SEQ 0335 
VAX=-11 Bliss-16 V3=555 154 


; age 
Bat 21983 17:63:57  DUAZ:CDOUCETTE .CZRCDICZRCD3.SRC:3 (569 


! GET DRS UNIT NUMBER 
! DONE SEARCH 


! PLATTER ADDRESS SEARCH LOOP 
! IF UNIT NUMBER WAS FOUND 
! THEN 


! CALCULATE UNIT'S TALLY ADDRESS 
! INCR ERROR LOG COUNT 
: ae CODE = DATA ERROR 


' IF ECC-F IELD-ONLY 
' INCREMENT STAT 
i OTHERWISE 


! IF SUB-CODE INDICATES ECC SYMBOL ERROR 
! THEN 


! CALCULATE EXACT ADDR OF ECC STAT 
INCREMENT STATISTIC 


! IF SUB-CODE IS ECC ERROR 
! IF NOT ECC-FIELD-ONLY ERROR 
! IF EVENT CODE = DATA ERROR 
! IF UNIT NUMBER WAS FOUND 
! IF FORMAT = SMALL DISK ERROR 
! JF ATTENDED AND ERROR LOG PRINTING WAS NOT SUPPRESSED 


' “ERROR LOG MESSAGE RECEIVED:"* 
Be REF NUM: XXXXXX(O)"" 
i If FORMAT CODE = SMALL DISK ERROR 
i "© PLATTER: XXX."" 

FORMAT: "* 


NT TEXT 
x(0)"* 





CZRCD3 
v01. 


ctchaicine 


uw 


RSRVRIN=R 


oe 
— 
NVMIWWW = NO NMOVING S&fhnuwi 


es 
-OoNvoOwW 


CZRCDAO_RC25 DISK EXERCISER 1 
RC25 INTERRUPT SERVICE ROUTINES 


PRINTF (EX_EVC); 
IF o C LéGu 11 


' 

i 

i 

NPRINTF (. STC_1B C.EVC]) 
PRINTF (EX_03, sev): i 
PRINTF (EX_SB, .SBC) 
4 grat EQCU FM_BAD © 
PRINTF (EX_HMA v 


END; 


» «IENV_ADDR CMA_LOJ, .IENV 


STC.11 


$PLIT$, 
/%AC/ 


on ww - 
SM —WwO 


lm BS a a a od do od 
MMNMNOS-——-NwO ——0o0—-—0 
MMOMMUIEO OfM—nronrnol& fw 


NM LOONON— 
~ ao 
Dea be, ne be tn Be a be ee be een ba fs ee ee 


NRVIWWONVYIW= AONMUUINO— 


O22 at at td ato 


N 10 
SEQ 0336 
1=Jul=1983 + ee VAX=11 Bliss-16 V3-555 Page 155 
8=Jul=1983 17:43:5 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC33 (56 


VENT CO 
IF EVENT CODE 1S KNOWN 
i PRINT EVENT CODE TEXT 
OTHERWISE 


xx(0)"° 


= SUB=CODE: XXXxXx(0)** 


! IF HOST MEMORY ACCESS ERROR 


THEN 
ADDR CMA_HI]); ! PRINT HOST ADDRESS 


! IF PRINTING WAS NOT SUPPRESSED 


ROUTINE DATAGM 


0 


RO, D 





SEQ oe 


CZRCDAO_RC25 DISK EXERCISER © 244: VAX-11 Bliss-16 V3-5 Page 156 
RC25 INTERRUPT SERVICE ROUTINES 243: DUA2: CDOUCETTE. Reb ICZRCDS. snes 3 (56 


5 
000 


— 
— 


3 
& 
>>> 


_—— 
o—rn 
ANnnnnnnw 


—— 
—— 
OM Lion 
anuwo-— 
onNn— 
SONNUWE SWS 
>>> 


parr ey re 
=——OnM foo 


e*ee*eee#see##«# 

Ww 
AOOAIOOOOAIN 
tay dees band bem fame bemy bene Omg bans 
Dead feed dng Pag Dag ng fay fee eee 


SRR 
ovum 


/ROR/ 
/%N/<00> 
<00> 


FMT.CE= P.AAC 
FMT.HMA= P.AAD 
FMT.SDE= P.AAE 


-SBTTL DATAGM x INTERRUPT SERVICE ROUTINES 
ePSECT S$CODES, 
DATAGM: JSR R1,$SAVES 
cMP =(SP) ,=(SP) 
tote -ADDR, RO 


20(RO) .R4 


R5 
#174000,R5 
2(SP) 


. 
e 
e 
e 
. 
e 
. 
e 
7 
e 
e 
a 
ae 
° 
a 
< 
e 
° 
e 
° 
e 
2 
o 
a 
e 
© 
a 


2(SP) 

14 (RO), (SP) 
#-1,R1 
#6,RO 
RO.R2 
ICST.ADDR 
(R2) .=(SP5 
1(SP5 
2(SP), (SP)+ 
(R2),R1 

177740 #177740,R1 
BR 3$ 


000002 , #2.RO OFFSET 
000014 RO.A4 OFFSET. « 


Rt ; UNIT 


6$ 
R1,-(SP) : UNIT,* 
012746 #60,-(SP) 


R2 


ee med ced eed wed ed ed ed aed od od ow 


SSSSSssssssssssss 
SARNSRSSKESRBACSE 


mbt 





c 11 


SEQ 0338 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11-Jul-1983 VAX-11 Bliss-16 V3-555 Rage 
v01.0 RC25 INTERRUPT SERVICE ROUTINES 8-Jul-1983 DUA2: CDOUCETTE.CZRCDICZRCD3.SRC33 (56 


0000006 PC ,BLSMUL 

0000006 #TALLY,RO 
MOV RO ; *,TAD 
000032 ; #(TAD) 
000010 8 #10 ; Evc,* 
000004 ; SBC,* 
000056 in ; (TAD) 
000010 : MP RS  sBc.e 
000017 MP Re ; SBC,* 
> SBC ,* 


; TAD,* 
> *, TAD 
; *, TAD 
(R2 ; TAD 
(SP)+,(SP)+ : 
50 


15$ 
#1,SWP.FLAGS 
#EX.EL,=(SP) 
# 


o7 (SP) 


IENV.ADDR,RO 

10(RO) , (SP) 

#EX.CRN,-(SP) 

#2,-(SP) 

SP,RO 2 SP,* 


000001 000012 #1,12(SP) 


000010 10(SP) , (SP) ; PLAD,* 
0000006 #EX.PA,=(SP) 
000002 #2,-(SP) 

SP,RO ; SP,* 


(SP)+,(SP)+ 
SP) 


R 


R 
‘ 


ene 
& 


0 
0 
1 
0 
0 
0 
0 
0 
1 
0 


o-o0000 
Sanxeok 
WRESNNSE 
QnA NOAAO— 


™m 
rr 


0000006 
000001 


sese 
~m 
Sx 


Rg 
™ 
— 
N 


000001 
000004 


R 
002554" FMT. TB(RO), (SP) 
000001 #1,-(SP) 





Dd 11 


ag 
CZRCD3 CZRCDAO_RC25 DISK EXERCISER 11=Jul=1 : VAX-11 Bliss-16 V3-555 e 
v01 RC25 INTERRUPT SERVICE ROUTINES 8-Jul=1 3 DUA2: CDOUCETTE .CZRCDICZRCD3. SRC; 3 (589 


. SP,* 


; FMT,* 


=—OoCoo 
Sanne 


SP RO : SP, 
7 


S 
AOAanN 


(SP)+ 
#EX.EVC 
#1,-(SPS 
SP;RO 


(SP) 


oo 
par oer rs 
Sx 


1 
R3,413 
12$ 


R53 
STC. TBC(R3), (SP) 
#1,-(SP) 


soeessese 

Ronaeeee 

NUON 
So&onWoN~ 


Aanon 


13$ 
R3, (SP) 


Sessss 
33 
— 
DROON 


ws 
= 


P)+ 

R5, (SP) 
#EX.SB,~(SP) 
#2,-(SP) 


na 
JE NOOR RO 


33 


—_ =) od dD 
ES 
> 


Nm 
® 
ann 


0 
0 
0 
0 
1 
0 


000006 
000024 14$: #24,SP 
15$: MP sale ences 


; Routine Size: 207 words, Routine Base:  SCODE$ + 16554 
: Maximum stack depth per invocation: 23 words 


END 
ELUDOM 





E 11 


SEQ ey ~ 
DAO _RC25 DISK EXERCISER 11-Jul-1983 08:44:5 VAX-11 Bliss=-16 V3=-555 
INTERRUPT SERVICE ROUTINES B-Jul-1983 17:43:5 DUA2: CDOUCETTE .CZRCDICZRCD3.SRC;3 (58 


OTS external referenc 
-GLOBL S$SAVE5, * SsAvEs, SSAVE3, SSAVE2 
.-GLOBL BLSABS, BLSSHF, BLSDIV, BLSMOD 
“GLOBL BLSMUL 


CZRCD3 CZ 
v01.0 RC 


RC 
RC25 


PSECT SUMMARY 
Psect Name Attributes 
$GGG$ 711 1 


SCODES 
SPLITS S52 RO, D 


LIBRARY STATISTICS 


: Symbols 
File Total Loaded Percent 
_DUA2: CDOUCETTE.CZRCDICZRCDL.L16;9 276 249 90 


COMMAND QUALIFIERS 
BLISS /PDP11 CZRCD3.SRC/LIST/EN:NOEIS 
i. ars coge + 763 data words 
3} Elapsed Time: 02:51.6 


peaery Used: 328 pages 
; Compilation Complete 





F 11 
SEQ 0341 
11-Jul-19 : VAX-11 Bliss-16 V3-555 Page 
8-Jul-19 : -DUA2: CDOUCETTE .CZRCDICZRCD4.SRC;32 (1) 
MODULE CZRCD4 ¢ 
Totte "eRCORe RC25 DISK EXERCISER’ 
a MODE (ABSOLUTE) 
BEGIN 
ZSBTTL "LASTAD AND SETUP’ 
REQUIRE ‘BLSMAC.REQ*; ! DIAGNOSTIC SUPERVISOR LIBRARY 
LASTAD 
BGNSETUP (2); 
BGNPTAB 
%0°172150", %0°154", 5, 0 ! IP, VECTOR, BR, PLAT ADDR 
ENDPTAB 


BGNPTAB 
sete 172150", %0°154", 5, 1 ! IP, VECTOR, BR, PLAT ADDR 


SAE 


DADAM 
SRR EWWG 
NOUSWN =O OON 


vv vv 
ek a ke ad ad dd od od 


RRS 


ENDSETUP 
CZRCD4 CZRCDAO RC25 DISK EXERCISER 
/V01.0/ 


AMA 
$xYZ$, RO 
BLS$LAS::.WOR 


TSFREE 
<<T$FREE-<BLS$LAS+4>>/2> 
P.AAA: D LS$LAST+20 


3 Plit count word 
P.AAB: 


a 
w 
eon 
Ww 
So 


P.AAC: 
P.AAD: 


; Plit count word 


onmun | SOOM 1 & 
ww w 
eo 


TSFREE::. 
LS$LAST== te 


- SBTTL SEND.LINK LASTAD AND SETUP 
000000 SEND.LINK aH pc 


3; Routine Size: 1 word, Routine Base: $XxYZ$ + 0036 
3 Maximum stock depth per invocation: 0 words 





G11 


CZRCD4 CZRCDAOD RC25 ty EXERCISER oP Naset pat 08:47:46 
v01.0 LASTAD AND SET 8-Jul-1983 17:50:02 
; 1549 END 

3 1550 

3 1551 ELUDOM 

: PSECT SUMMARY 

: Psect Name Words Attributes 

3 $xvZ$ 16 RO, I , LCL. REL, CON 


COMMAND QUALIFIERS 
BLISS /PDP11 CZRCD4.SRC/LIST/EN:NOEIS 


Size: 1 code + 15 data words 
Run Time: 00:06. 
panes Time: 00:11.3 
ame | Used: 94 pages 
Compilation Complete 


SEQ “ 
VAX-11 Bliss-16 V3-555 Page 
_DUA2: CDOUCETTE. CZRCDICZRCD4.SRC52 (2) 


